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御注意 


⑴本書は著者らが凋裔した結果を出版したものです。 

⑵本書は内容について万全を期して作製いたしましたが,御不審な点や誤り，記載も 
れなどお気付きのことがありましたら，出版元まで書面にて师述絡ください。 

⑶本書の内容に関して連川した結裝の釤響については⑵項にかかわらず資任を tt いか 
ねますので御了承ください。 

⑷本書の全部または一部について出版元から文書による許諾を得ずに，いかなる方法 
においても複写，複製することは禁じられています。 




F-BASIC 


解析フニユアル宗^ 




FM —7 は， 19 8 2 年後半に FM —8 の姉妹機として発売され，以来人気を 
呼んで現在 バソコン におけるベストセラーの地位を保っております . FM — 7の 
CPU 「6809」は「究極の8ビット C P U j と呼ばれ，その性能が高く評価 
されている反面，未だにユーザに馴染みの薄い CPU であるため，システム内部 
の解析もあまりなされていないようです.特に，システムの主要部分を占めるイ 
ンタプリタの内容がユーザに解放されていないのは残念でなりません. 

本書は，この 「 B A S I C インタプリタ」という巨大な思想体系に対する1つ 
の解釈を与えるものです.どんな思想体系にも様々なアプローチがあり，複数の 
解釈が存在するように，我々の解釈とは異なった角度からインタプリタの解析が 
なされても然るべきことと思いますが，本書を起点としてユーザが自分自身の解 
釈を打ち立てようとする探究心を高揚させていってドされば，それで我々は満足 
です • 

このような観点から，本書では，今までどの本も取り扱わなかった B A S I C 
インタプリタの根幹を探究することに焦点を絞リ，基本的なルーチンの解析から 
始まって，数値演算のアルゴリズムにまで手を仲ばすことにしました.特に，根 
幹に触れる部分については，初心者の方々でもわかるよう解説に工夫を施しまし 

た- 

これが契機となって， 多くのユーザが，閉じ込められた空間にある各ルーチン 
を解放し， ROM 内インタフ°リタという限定された空間に託された思想を浮き彫 
りにしていく指南の役目を果たせれば，これ以上にない光栄と思う次第です. 

本書の執筆_出版に当たって，お世話になりました水上英樹氏，渡部孝子氏， 
池田正昭氏，宫田僚司氏，山内直氏に深く感謝いたします. 
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本書を読むに当たって 



本書を読むに尚たって最低限必要なことは， 6 8 0 9 CPU の基本的命令セット 
とそのアセンブリ言語による表現形式についての知識です.特に，豊富なアドレ 
ッシングモードを持っている点と，フラグが頻繁に変化する点で ， Z 8 0など他 
の8ビット CPU とは大幅に違っていますので注意を要します.アドレッシング 
モードの中でも，とりわけ， 間接アドレッシング および プログラムカウンタ相対 
アドレッシング （後者はインタプリタ内では使用されていませんが，位置自由 
〔ポジションインデペンダント〕なプログラムを作るためには必要不"]決なもの 
で，サンプルでは多用しました）の2つのモードに関しては理解を深めておく必 
要があります. 

本文および図中で用いた語句，特に略語については，ほとんど一般に通用して 
いるもの（例えば， A レジスタを Areg ， AccA と略するなど）を使用しました 
ので，特に説明は行いません.ただ， FAC - SD - SSP - SAC * FD-S 
FD などの用語およびインタフ°リタ側から参照されるメモリの表記法について 
は，本書特有の定義に従っていますので以下に説明を加えていきます.また，文 
中の「コマンド」と「ステートメント」は，本米，厳密に区別すべきものかもし 
れませんが， ㈣ 名'とも「文」と同義で使用している場合もあります.なお，一部 
掲載した ROM 内ソースリストについては，わかりやすくするために完全なアセ 
ンブリ表記形式になっていない部分があります.その他の事柄については 「F — 
BASIC 文法書」， 「 FM _7 ユーザーズマニュアルシステム仕様 j ， 
「同システム解説」，および 「F — BAS I C 解析マニュアルフェーズ I —— 
基礎編—— 」 等を適宜御 参照下さい. 

( 1 ) メモリの表記法について 

メモリの内容については，値そのものと区別するためにカッコでくくります. 
例えば，次のようになります. 

• (0 5 AC ) は，$ 0 5 AC 番地に格納されている1バイトデータ，またはそ 
の領域のことを指します. 

• ( 0 3 3 A : 0 3 3 B 〉 は，$ 0 3 3 A の内容を上位バイト • $ 0 3 3 B の内 

容をド位バイトとする2バイトのデータ，またはその領域のことを指します， 

• (043 D 〜0 5 3 C ) は， $043 D 〜 $053 C に入る一連のデータ列， 

またはその領域のことを指します. 

ただし，インタプリタ内では常に ， DP (ダイレクト ページレジ スト）は$ 0 
0に固定されています （ BIOS 内では， $ FD に固定）から，ダイレクトアド 
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レッシングにおける上位バイトは必ず$ 0 0となるため，$0000 〜 OOFF 
の範囲のワークエリアについては，例えば， （0 0 BF > — ( BF ) , (0 0 3 

3 : 003 4) — ( 3 3： 3 4 ), (0074-007 0 (74 〜 7 C ) な 

どというように上位バイトを省いた略記法を多く用いました.また，このエリア 
のことをページゼロとも呼びます. 

(2) FAC (フローテ イング アキュームレータ）について 

インタプリタ内では，整数型_単精度型……などの種々の演算操作を効率良く 
実行するため， フローテイングアキュームレータ (Floating Point Ac ¬ 
cumulator !浮動小数点演算用アキュームレータ）と呼ぶ8バイトの仮想レジス 
夕をワークエリア上に設けており，これを FAC と名付けます. FAC は3つあ 
ります. 

• FAC 1(74 〜 7 C ) 演算の主軸となるレジスタです.演算結果は全てこ 
こに生成されます. 

• FAC 2 (8 2〜8 A ) 

2項演算で F A C 1と共に用いられます. 

• FAC 3 (2 8 〜 3 0) 

実数の乗算と除算のみに使用され，仮数部だけが用いられます（指数部•符号 
部のエリアも確保されていますので，ューザによる使用は可能です）. 

FAC 1および FAC 2については ， C PU 内のレジスタと同様の命令を行う 

サブルーチンが設けられており ， 「PSHS FAC 1」 （$ 9 3 E 8>, 「PU 
LS FAC 2」 （$ 9 41 1),「 LDFAC 1 , X 」($ B 301), 「STF 
AC 1 ，Xj ($B 3 3 7 )，「 LDFAC 2 ， X 」（$ B 1 BA)， r TFR 
FAC 2 ，FAC 1」 （$ B 3 5 F)，「TFR FACl ， FAC 2 j ($ B 3 
80 )，「EXG FAC 1 ，FAC 2」 （$ 9 3 6 4 )， 「 CMPFAC 1 ，X 

(実数のみ）」 ($ B 3 EC ) が用意されています（仮想レジスタと呼ばれる意味 
がこのようなことからも理解できます）. 

なお， $0 017 番地には FAC 1の 数値 型を示す 識別子 （整数型$ 0 2，単 
精度型$ 0 4，倍精度型$ 0 8，文字型$ 0 3) が，$ 0 0 5 D には FAC 2の 
数値型を示す識別子がそれぞれ格納されるレジスタとして用いられています • 
また， FAC に関連して，$ 0 0 8 B は演算の 符号判定用レジスタ （5 — 3 
節）として，$ 0 0 8 C は FAC の 保護バイト （5 — 2 — 3参照）として用いられ 
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ていますので注意して下さい. 

次に， FAC 1 を例にして，エリアの様子を見ることにします. 

♦整数型の 場合は，16ビットの符号付き2進数として表されます.従って$0 
0 0 1 が 1 に，$ FF F F が一 1 に対応し，$ 7 F F F が 3 2 7 S 7 に，$ 8 
0 0 0が一 3 2 7 6 8 に対応します. 

♦単精度型の 場合は次のように各部が分かれます. 

指数部 実数を X =±0. △△△△ . AX 2 n と表したときの n が$ 8 0 だ 

けゲタを履かされて入ります.すなわち$ 01 - $ 8 0が 2— 127 〜 2 e に対応 
し，$ 8 0 ~ $ F F が2° 〜 2+ 127 に対応します.$ 0 0は0に対応します. 
仮数部 上記 △△△△〜△ (△は1か 0) の部分が順に$ 0 0 7 5番地の先頭 
ビットから代入されます（ただし，最上位ビットが常に1になるように入りま 
す.正規化 5 — 2 — 3 参照）. 

符号部 $ 0 0 7 C 番地の最上位ビット が符号を表します（正： 0, 負： 
1) • 

♦倍精度型の 場合は単精度型の場合とほとんど同様ですが，型を示す$ 0 017 
番地に$08が入ります.さらに，単精度型では使用されていなかった下位4 
バイトを仮数部として使用します. 

•文字列型の 場合は SD (ストリングディスクリプタ〉の位置を指し示す ポイン 
夕が入ります.主として SAC 内の SD を指すことになります. 

図⑴ 一 1 • FAC 1 ( 0 0 7 4 〜 0 0 7 C) の構造 


$ 0 0 


:> 
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A 

B 

C 


$()0 


①後奴 1 V ! 


(未使用} 


符号+上位 


下位8ビット 


(未使用） 


( D 単坫戊” 


指数部8ビット 


仮数部上位 


_ 仮数部 _ 
(全2 4ビット) 


-(未使用） 


符号部 





※閃中， s は符けを表すビットで， r o :】 h ; 1 : n 」 を衣す. 
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(3) S D (ストリングディスクリブタ ）， SS P (ストリ 

ングスタックポインタ）について 

文字列型データは不定長であるため，間接表現が採用されます.この間接表現 
を担っているのがストリングディスクリプタ (String Descriptor : S D と略す） 

と名付けた3バイトのデータブロックで，最初の1バイトには文字列の文字数 
(データ長）が入り，残りの2バイトは実際の文字列が格納されている位置を示 
すポインタとなります.インタプリタでは，実際の文字列を，主として文字列ス 
タックエリアと呼ぶ領域（この領域の大きさは C L E A R 文の第1パラメータ 
で，また領域の先頭（下限）は CLEAR 文の第2パラメータマイナス1で与え 
られます）で扱います t このとき，使用済領域と未使用領域との境界を指すボイ 
ンタが必要であり，ワークレジスタ （41:42) がこれに相当します，これ 
は，文字列スタックエリア (String Stack Area ) のポインタですから，ストリ 
ングスタックポインタ (String Stack Pointer : S S P と略す ） と命名いたしまし 
た.これについては， 2 — 2 — 1 節で詳細を御覧下さい. 

(4) SAC (ストリングアキュームレータ） 

ストリングアキュームレータ (String Accumulator : S A C と略す）という 
名称は， FAC をもとにして名付けたもので，本書の中だけで使用されている特 
有な名称です.前述のように，文字列は SD — 文字列スタックエリアの2段構え 
で表現されますが，文字列関数や文字列演算（加算式）の処理を行う場合には， 
作業領域が必要不可欠になります.実際の文字列本体は文字列スタックエリアに 
置くこととして，その本体を表現する SD を置く場所が問題となります . FM — 
7では，このような作業用の SD を置く場所として（ 0 5 7 8 - 0 5 9 5 ) の3 
0バイト （ SD 10 個分）が用意されており，本書ではこの10個分のエリアに 

対して SAC 1 ，SAC 2, . , S AC 1 ( J という名称を与えます. 

現在使用している SAC の番地，および次に使用すべき SAC の番地を指すポ 
インタが （2 1: 2 2) および （1 E :1 F ) であり，作業領域が増えるたびに 
ペアでインクリメント （+3), 1つの作業が終わるたびにデクリメント（一 
3) されます. SAC ポインタのインクリメント•デクリメントは， FAC のプ 
ッシュ • プルに相当すると考えて下さい. 

また， SAC は10個しかないので，例えば， 

a $ ” + r ，，+r ”+ …… r ， ’+ tf ABc ，，）） …… )) 

v_____^ __ ノ 

9 重のカッコ 

などと行うと 「String Formula Too Complex 」 エラーが発生します. 
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(5) F D (ファイルディスクリプタ）と SFD (システム 

ファイルディスクリプタ）について 

ファイルディスクリプタ （File Descriptor : F D と略す）の意味は ，「 F — B 
AS 1 C 文法書 2. 8」のファイルディスクリプタのことを指しています.しか 

し，システムファイルディスクリプタ （System File Descriptor : S F D と略 
す）はインタプリタ内部のもので ， F —BAS I C プログラム上のものとは異な 
りますので，本書では「システムー」を接頭語として付けて区別しました . S F 
D については4 -1-1 節に詳細な解説を行っています. 

( 6 ) 汎用読込みルーチン $ D 2および$ D 8について 

ワークエリアの （ D 2 〜 DD ) には，テキストをはじめ，バッファ等に蓄積さ 
れた様々なデ ー タの読込みの心臓部をなす非常に重要なサブルーチンが存在しま 
す（エントリは $ D 2 および $ D 8 の2種類があります）.このルーチンは ， B 
AS IC 起動時に上記アドレスに設定され，インタプリタ内のほとんどの処理系 
から呼び出されているため，これを破壊するとインタプリタは全て動かなくなり 
ます.このルーチンの働きは，ルーチン内部に含んでいるポインタ （ D 9 :D 
A ) が指*し示しているアドレスの内容を A レジスタに読み込んで，そのデータの 
種類に応じてフラグを立てることです. $ D 2 と $ D 8 の違いは，読込みに先立 
って，ポインタ （ D 9 : DA ) をインクリメントする （=$ D 2) か，しない 

(= $ D 8) かの違いだけです.読込みを終えた後 ， $C 7 6 0に飛んで， 

① A レジスタ内のデータが数字を表す文字コード （$3 0 〜$3 9) であれ 
ばキャリーフラグをセットします〔数字の検出〕. 

② A レジスタ内のデータが NULL または コロンを 表す文字コード （$00 
または$ 3 A ) であればゼロフラグをセットします〔区切文字の t 矣出〕. 

③ A レジスタ内のデータが空白のコード （$ 2 0 >である場合には再び$ D 2 
に戻って次の番地からデータを読み込み，空白以外の文字が出てくるまで 
ポインタ （ D 9 : DA ) を更新しつつ読み飛ばします〔空白 ▼一 ▼のスキ 
ップ〕， 

などの後処理を同時に行います.この，$ 0 0 D 2から始まって$ C 7 6 0を経 
て $ C 7 6 E に終わる， 汎用 読込み ルー チンは， 実に巧妙にできており，わずか 
2 7バイトで上記のすべての機能を備えているだけでなく，結果が格納される A 
および CC レジスタを除いた全てのレジスタがそのまま保存されます.特にフラ 
グの立て方や，$ D 2 ' D 7におけるプレインクリメントの行い方などは技巧 
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的で効率良くできています（この部分はユーザにとって人いに参考になる点で 
すので，ソースリストを叙せておきます.キャリーフラグの立て方に注 II して下 
さい）.また，ページゼロのエリア上に書かれていることにより， DP = $ 0 0 

である限り 「JSR <$ D 8」， 「JMP <$ D 2」 等というように2バイ 
卜命令で呼び出すことができるのも大きな特色です. 

ソースリスト （▼く ▼は8ビットオペランドを強制する記号です） 

$ 0 0 D 2 INC < $ DA $ C 7 6 0 CMPA # $ 3 A T ： T 

D 4 BNE < $ D 8 62 BHS $ C 7 6 E 

D 6 INC < $ D 9 6 4 CMPA *$20 

$ 0 0 D 8 LDA (エクス テン ド） 66 BNE S C 7 6 A 

D 9 f 汎用 読込み | 6 8 JMP < $ D 2 

DA l ポインタす $ C 7 6 A SUBA #$30 

DB JMP $ C 7 6 0 6 C SUBA # $ D 0 

$ C 7 6 E RTS 

(7 ) その他の主なサブルーチンについて 

ワークェリア （ DE 〜 E 0) には ， B I 0 S への JMP 命令 （JMP $ F 1 
7 D ) が書かれていますので，インタプリタ内からの B I 0 S コールはほとんど 

「 J SR < $ DEj で行われます. 

$ 9 2 8 C から始まる一連の文字コードチェ ッ クルーチン（左カッコ ： 9 2 8 
F ， 右カッコ ： 9 2 8 C , コンマ ： 9 2 9 2， Breg 内のコード ： 9 2 9 1 } につ 
いては 3 — 8 — 3 節で詳細に述べますので，ここでは省略します. 

なお， アルファベットチェック （$94 FD ) ， 数字チェック （$9506) 
および 小文字 D 大文字変換付きアルファベットテスト （$C 4 9 0 ) の各サブル 
—チンについては， 2 — 3 — 4節 （4) の〔14〕で解説します. 
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BASIC の起動 


1—1 BOOT • ROM からの BAS I C の起動 


6 8 0 9 マイクロプロセッサでは，リセット信号がかかった後，リセットべク 

トルとして （ FFFE : FFFF ) より，実行開始アドレスを取り込みます .F 
M - 7では，ここに $ FE 0 0が書かれているため，$ FE 0 0が，実行開始ア 
ドレスとなる訳ですが， SFE 00 からは ， B 00 T • R 0 M の領域が入って 
います . BOOT - ROM は ， D I P スイッチにより切り換えられ， DIP スイ 
ッチの1，2番を ON 状態にすると BAS I C モードになり ， BOOT - ROM 
も BA S I C 用になります. 

OOT•ROM の構成 

BOOT • ftOM は大きく分けると， BAS 丨 C 起動 ルーチン， RESTOR 
E (シークトラック 0) ルーチン， DWR 1 T E (フロッピ 1 セクタライト）ル 
ー チン， DREAD (フロッピ1セクタリード）ルーチンに分かれています.ま 

た，スタック領域として$ FC 7 F 以下の RAM 領域を利用しています （図 1 • 

1 - 1参照）. 

ディスク用のルーチンは，そのエントリ番地を鹿接呼ぶこともできますが， 図 
1 • 1 • 1で示したように ， RE S TORE は$ FE 0 2 ， DWR I TE は$ F 
E 0 5, DREAD は$ FE 0 8といったエントリが用意されていますので，こ 
れらを使用するようにして下さい. 

1 — 1—2 BAS 丨 C 起動ルーチン 

$ FE 0 〇番地のブランチ命令により，実際に起動ルーチンが始まるのは，$ F 
E 0 B 番地からです.また， 図 1 • 1 • 1にも示したように，一連の動作が終わ 
ってからは$ FFC 〇番地に飛び，そこで特定の I / O ポートの設定をした後に， 
BASIC ( または ， I PL ) へとジャンプしていきます. 

$ FFC 0番地に飛ぶまでの起動ルーチンの主な動作を以下に示します. 

( 1 )_ スタックボインタとして $FC 7 F を設定します， 

(2 )1/0 ポート （$ FD 0 4) のビット1を参照し，ブレーク•キーが押され 
ていれば， X レジスタに BAS I C のホットスタートの エン トリ番地を代入 
します.また，押されていなければ次の動作を行います. 
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BOOT * R OIVI の構成 


F F F F 
FFFE 
F F F 2 
FFFO 


FEE 0 


F F C 0 


RESET べクト J レ （$FE 0 0 ) _ 
割り込みべクトル （ RAM ) 




BOOT-ROM 


クエリア （ RAM ) 


JUMP TO 


BASIOSTART 


F F 8 D 


DREAD 


□ WRITE 


F F ミ 




FE 0 
FE 0 
FE 0 
FE 0 


SI 



ライブ 


ラック•サイ 


セクタの 


安定、及び R / W 判定ルーチニ 


ドライブ•卜 

ラックの選択， TIMER , 

READY CHECK などのルーチン 

RESTORE 

BASI 

〇起動ルーチン 



UMP TO DREA 


UMP TO DWRIT 


JUMP TO RESTORE 



JUMP TO BAS 



動ノレ ―チン 










( i ) I /〇ポート （S F D 0 5 ) のビット 0 を参照し， M 張モジュールがあれ 
ば DREAD (= $ FE 0 8) を コールし， エラーがない限り， I P L 
(Initial Program Loader ) をディスクから$ 010 0悉地以降に口ードし， 
X レジスタに I P L のエントリ番地を代入します. 

⑹拡張モジュールのない場合は， X レジスタに BAS I C のコールドスター 
卜のエントリ番地を代入します. 

X レジスタに代;入されるエントリ浪地と，それが書かれている ROM のアドレ 
スは次の通りです. 

ホット スタート ： $ 8 6 8 4 (FBFC : FIBFD ) 

コールド スター ト ： $848巳 (FBFE : FBFF ) 

I P L : $0100 

I P L をディスクからロードする際にエラーがあったとき，そのエラーが Disk 
Not Ready の場合は，拡張モジュールがないときと1口]じ動作をします.しかし，そ 
れ以外のエラーの場公は RES TORE (二$ FE 0 2) をコールして，ドライブ 
ヘッドをトラック0の位厭にセットをした後 ， I PL を W : 度ディスクから説み込 
もうとします.ただし，この動作を計5回繰り返した後もエラーが起こるようで 
あれば，拡张モジュールがない場合と | nj じ動作をします. 

この DREAD や RESTORE などを呼ぶ際には， BIOS と同様に RC 
巳 (Request Control Brock ) が必驳で， R C B のデータが D R E A D 川には$ F 
E 51 〜 $ F E 5 8 番地に，また RESTORE ⑴には$ FE 5 9 - $ F E 6 0 
番地に恪納されています. 

$ FFC 0挢地からは，次の動作をします. 

( 1 ) D P (Direct Page ) レジスタに， SO 0 をセットする. 

(2) ( FD 0 7> つまり ， RS — 2 3 2 C インタフェースのコマンドレジスタに 
リセ ッ ト命令を 送る. 

( 3 ) (FD 2 5), (FD 2 7 ), (FD 2 9 ) ， （ F D 2 B ) にもリセット命 を送る. 

(4 ) X レジスタの指すアドレス（各々のエントリ番地）へジャンプする. 

なお （FD () 7 ) は，本体内の R S — 2 3 2 C インタフェース.のコマンドレジ 
スタですが ， (F D 2 5 ) からの4つは拡張ユニット内の R S — 2 3 2 C インタフ 

エースのコマンドレジスタを'心します. 
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• I • 


BA S I C 起動ルーチン 


FE 0 


START 


$FFC 0 




DP—$FD 


DP ^ — $00 



SP 


FC 7 F 



reak Key ? 


YES 


(FD 0 7 )— RESET 
(FD 2 5 )— RESET 
(FD 2 7) 一 RESET 
(FD 2 9 )— RESET 
(FD 2 B ) —RESET 


NO 


並 




UMP 


EXTDET ? 


HOT 


$ 8 6 8 4 


DREAD 


FBFC : F 巳 FD ) 




f 

7p~ 




_ __ 



COLD 


< — 


$ 8 4 8 B 


FBFE : FBFF ) 


RESTORE 




《 EXTDET は拡張モジ 


ル無/有フラグ （ FD 05 のビ 



















1-1—3 BOOT • ROM 内のサブルーチン使用法 

BOOT • ROM 内のディスク関係のサブルーチンは， BIOS からも呼ばれ 
ており，その中身は同一■のものです.従って ， B I 0 S のサブルーチンと使い方 
はほとんど同様ですが，底接このサブルーチンを使うときは次の相違点がありま 
す （ BIOS を介せば ， B I 0 S がこれらの処埋を行うことになります）， 
(1) DP レジスタに D を代入しておく必袈があること. 

(2 ) 全てのレジスタが使われ，保存されないこと. 

( 3 ) エラーステータスがセットされず，代りに A レジスタにエラー内容が代入さ 
れて戻されること. 

以上を除けば K じですので， RCB を設定し， X レジスタに RCB の先頭アド 
レスを代入し各エントリに飛ばしてください（システム仕様参照）. 

1 一 2 I L (initial Program Loader) 

D I SK • BAS I C では ， BOOT _ ROM によりディスクのトラック0， 
セクタ1から$ 010 0番地以降へと読み込まれます.その全体は，161バイトの 
短いプログラムのため ， I P L として2セクタ取られていますが，実際には1セ 
クタで終わっています（セクタ2は，未使用です). 

IP L の主な動作は次の通りです. 

• I D セクタを読み込み，そのディスクが FM — 7で使えるものかどうか判断 
し，使えなければ ROM • BAS I C を走らせます. 

•トラック0，セクタ 1 5及び 1 6にある D I S K • B A S 1 C • IfVMTI 
A L I ZE ルーチンを $ 6 E 0 0 〜 $ 6 FFF に読み込みます. 

•トラック0，セクタ17 〜 32の DISK . BASIC を$7000 〜 $7 
FFF に読み込みます. 

•何らかのエラーが起こった場合は ， BOOT • ROM と同様に，それが Drive 
Not Ready エラーかどうか調べ，そうである場合は R 0 M . B A S I C を起動 
させます.また，それ以外のエラーのときは計5 |.口1読み取りを繰り返しますが， 
それでもエラーの起こる場合は ROM • BA S I C を起動させます. 

IPL は ， I D セクタや D I SK • BAS I C を読み込む際 ， BOOT - RO 

M の中のデイスク用ルーチンを使っていますので RCB が必要となります. 
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HI 


鬈 


($010 0〜$ 01 A 0 


$010() 


1 MT 1 AUZE 


DISK 

READ 

ID = 

,. s ,， 

YES 

DBA = 

SCT = 

S6E00 
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X 卜 s 

5 0102 



DISK 

READ 


DISK READ 


RESTORE 
(BOOT* ROM) 


Drtve 
Not Ready ] 


NO 
DREAD 
(BOOT-ROM) 


YES 


Error ? 


Drive 

Not Ready エラ —? 
NO 

5 回目 ？ 


YES 


YES 


RETURN 



DBA — DBA+ 50100 
SCI- SCT+1 


ROM * B 


7000 


SCT 




START 


DBA-DBA+S0100 
SCT—SCT+1 


















I PL のための RCB 群は S 010 2 番地から $ 0121 番地の間に格納され 
ています.ただし， D I S K • B A S I C • I N I T I A L I Z E ルーチンと D 
I SK • BAS I C を設定するための RCB ($0102 〜と $010A 〜）で 
は，途中で R C B D B A と R C B S C T が順次変化していきます. 

I P L は， I D セクタ内にある識別子によって F — BASIC で使川" J* 能なデ 
ィスクであるかどうかを判断します.これについては，システム解説 13, 9. 7 
の I D の欄を御参照下さい.ここに違うコードが入っていた場合には，即座に ] R 
0 M モ ー _ドになってしまいます. 

I PL から BAS I C へと制御が移る場合について多少説明を力 II えることにしま 
す. IPL の終了が訪れると（エラーで、終わったにせよ，止当に終わったにせよ) 
一様に C 0 L D • S T A R T のエントり，すなわち$ 8 4 8 B 番地〔二 (FB F 
E : FBFF) の内容〕にジャンプします.ここで ROM. BASIC と D IS 
K ‘ BAS I C の違いは，ジャンプする問隙の唯一つの微妙な遠いによって起こ 

されるのです. 

D I SK • BAS I C が読み込まれ，スタンバイの状態になっているときは， A 
レジスタが $() 0 以外の値を取り， X レジスタには， DISK- BASIC の始 
まる番地が書かれています. ROM_ BASIC が起動する際には，全て A レジ 
スタがクリアされています. 

従って，この遠いが，後に CO LD • S T A RT ルーチン上で D I S K • BA 
SIC* 1NITIALI ZE ルーチンを呼ぶかどうかの違いになってきます. 
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1—3 BASIC • COLD * S 丁 ARTJ レーチン 


BOOT • ROM から源を発した BAS I C 起動への流れは，ブレーク • キー 
が押されていない限り ， I PL を経る経ないによらず ， B A S I C • COLD • S 
TART ルーチンのエントリに迎り着きます. 

B AS I C • COLD • START ルーチンに入るためには，前述したように 
(FBFE : FB FF ) 上にジャンプべクトルが書かれていて ， I PL や B 00 
T . ROM は，このジャンプベクトルを頼りに，このエントリポイント （= エン 
トリのアドレス）に，，处理を移していきます.このジャンプベクトルの値は$ 8 
4 8 B で，ここがエントリポイントとなり，$ 8 4 8 B 以降に（〜$ 8 7 0 2ま 
で ） COL D • S TART ルーチンが ROM 上に展開しています. 


1 — 3 一 1 主な動作 

動作の内容をまとめると，次のようになります. 

• A レジスタを判別し，その値が0以外のときは，前からきた X レジスタの値 （== 
D I S K • B A S I C の先頭アドレス）を （ FFF 8 : F FF 9 ) に保存します. 
それ以外のときは，$ 8 0 0 0が入ります. 

翁割り込みをマスクし， RAM 領域 （ ROM モードでは$ 0 0 0 0 -$ 7 FFF , 
D I SK モードでは$ 0 0 0 0 〜 $ 6 DFF の領域）を全てクリアします. 

翁ワークエリアを設定します. 

•設定の途中で （ FC 0 〇〜 FC 7 F ) の R AM 領域をクリアし ， （F F F 8 : 
FFF 9) に入っている DISK.BASI C の先頭アドレスを （F C 〇 〇 : 
FC 01 ) に転送します. 

拳割り込みべクトルテ ー ブルを設定します. 

• B I OS を初期イ匕します. 

• TAB を設定します （ TAB キーの停止位置の設定). 

• P F - キーを設定します（ただし ， D I S K モードの場合は ， D I S K • B A S 
IC . I N IT I A L I ZE ルーチンが行います） • 

参コンソール機能を設定します. 

• タイマを設定します. 

♦画面を設定します. 

• D I S K モード〔（ 5 9 F ) 与$ 0 0〕であれば ， （FC 0 0 : FC 01 ) を参照 
して DISK-BASIC - I N I T I AL I Z E ルーチンへジャンプします. 
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ROM モードの場合は，テキストを初期化した後，汎用読み込みボインタ （D 
9 : D A ) を$8758 ($0 0が設定されている）に設定し，また，ダイレ 
クトであることを指定〔（ 4 7:4 8 )に $ FFFF を代入〕します （D I S 
K モードでも，同様のことを行っています〉. 

•最後に ， ($8 6 3 E 番地からで ， D I S K モードの場合でも，大抵はここに戻 
ってきますが）メッセージを表示し，割り込みマスクを解除した後 ， BAS I C 
インタプリタのメインルーチン （2 章）へジャンプします. 



図 1 *3 • 1 BASIC-COLD-START ルーチン 

1—3 — 2 ワークエリアの設定 

COLD • START ルーチンの主な ft 事は，ワークエリアの初期設定です. 
ここでは，その中でも重要なものについて取りあげました. 

{]) D I S K/ROM モード識別フラグ 

• ( 0 5 9 F ) : ROM 時…$00 DISK_-‘.$FF 

(2) 領域設定 

BAS I C の使用領域を設定します. 

• ( 0 5' 9 D ： 0 5 9 E ) :解放 R AM 領域の铬わり 
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— R 0 M 時… $ 7 F F E D I S K !!$■■*$ 710 4 
※文字列スタック領域先頭番地 （ 4 5 : 4 6 ) も R 
じ値です. 

• ( 0 0 4 1 : 0 0 4 2 ) :文字列使 U ] 領域境界 （ S S P ) 

— >3 ROM 時…$ 7 F FE D I S K 時…$ 6 D FE 
※〇 I S K 時は，後で$ 71 D 4に変更されます. 

• ( 0 0 3 F ： 0 0 4 0 ) :文字列スタック領域最終番地 

— ROM 時…$ 7 E D 2 D I S K 時…$ 7 0 A 8 

※スタックポインタも同じ値です. 

(3) BIOS ジャンプルーチン 

• (OODE 〜〇 0 E 0) :— $7 E ( J M P ) , $ F 17 D 

(4) 入出カテーブルおよび割り込み時のテーブルのボインタ （4 章参照） 

入出力関係のバッファ，システムファイルディスクリブタ，割リ込みのテ ー 
ブルの先頭アドレス•ポインタを設定します. 

• (02 B 0 : 02 B 1) :カセット JII のパ'ッファのポインタ — S 0 5 E D 

• (02 B 2 : 02 B 3) :デバイス分類テーブルのアドレス-0 6 EC 
© (02 B 4 : 0 2 B 5) :システムファイルディスクリプタの先頭アドレ 

ス—$ 0 7 0 C 

愈 (02 B 6 : 02 B 7) : PEN ■り込みのテーブル Wi 在米使用） 

—S 0 71 E 

• (02 B 8 : 02 B 9) : C OM n 割り込みのテーブル — S 0 7 2 3 

• ( 0 2 BA ： 0 2 B B ) : K E Y 削り込みのテーブル — $ 0 7 3 C 

• (0 2 BC ： 0 2 BD ) : T I ME 割り込みのテーブル — $ 0 7 6 E 

• ( 0 2 BK ： 0 2 B F ) : I N T E R V A L 割り込みのテーブル 


• (05 AA ：05 AB ) :プリンタの出カテーブル—$ 0 7 7 8 

(5) プリンタ出カジャンプテーブル （4 章参照） 

❹ （ 0 7 7 8〜 （）7 8 C ) :次のデータとジャンプアドレスが入ります. 

~> +0〜十3 ” L I ) T 0 ” …デバイス名 

+ 4〜 $ D 9 A 5 , $ D 615 , $ C E F 4, 

$ D 617, S D 3 9 C , SCEF 4, 

S C E F 4 , $00, $50，$38 
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(6) RS — 2 3 2 C 入出カジャンプテーブル 

拡張モジュ ー ル（ここでは ， RS — 2 3 2 C をインタフ ヱー スすることが 
川•能であるもの）が接続されているかどうかを， I / O ポート （ SFD 07， 

S FD 2 5, S F D 2 7 , S F D 2 9 , S F D 2 B ) で調査して，接続されて 

いるものには，その人出力のサブルーチンへのジャンプ先（令てル通）を設定 
します.また，接絞されているものだけをポート浪り•が小さい IW に作っていく 
ので，ワークエリア内のこれらのアドレスに何が入っているのかは，接続によ 
ることになります， 


相対値 データと ジャン プアドレス 


ワークエリア 


争 + 0 ~+ 







COM n •••デバイス名 

L ポート番号 
$ D 1 A D, $ D 19 8, 

$ D 2 B 5 , $ D 2 5 C, 

$ D 3 9 C, $ D 3 A 5 ， 

$ D 3 B 4 

COMO ."$ F D 0 6 
それ以外… $FD22 + 2*n 

ポート番号 j 

$ C F 


バ 0 7 8 F 〜 0 8 2 D ) 

/ 

0 8 2 E —08 CC ) 

— ►( 0 8 CD ~ 0 9 6 B ) 

'、、:‘（ 0 9 6 C 〜 0 A 0 A ) 

\ 

、（〇 AOB 〜 0 AA 9> 

アドレスの小さいものへ， 
ポ ー ト番分が小さいものから 
設定されていく.ただし，ネ妾 
続されていないものがあると 
設定されないものも出てくる, 


(7) R S - 2 3 2 C ポートのテーブルのポインタ 

内容は⑹の先頭アドレスです.従って，接続されているポ ー 1、番技の小さい方 
から i 没定さ ii ます. 

翰 ( 0 2 C 0 : 0 2 C 1 ) > S 0 7 8 F 

• ( 0 2 C 2 : 0 2 C 3 ) ：0 8 2 E 

• ( 0 2 C 4 : 0 2 C 5) ： 0 8 CD 

© ( 0 2 C 6 : 0 2 C 7 ) 0 9 6 C 

• (0 2 C 8 : 0 2 C 9) :-> $ 0 A 0 B 

(8) B A S I C テキストエリアの先頭アドレスの設定 

テキストエリアの光頭アドレスは ， RS — 2 3 2 C のポート数によって変わ 
リます（また， DISK モード時は，加えてドライブ数と ファイルバッファ 数 
によっても変わってきます）.以ドに ， R 0 N 1モード時の値をボします 
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® (0033:0034) : RS -232 C のポートの個数で異なります • 
0 «古|のとき ->$ 0 7 9 0 3個のとき — $096 D 

1個のとき — S 082 F 4 flAl のとき —$0 A 0 C 

2個のとき — $08 CE 5 {W のとき -0 AAB 

例 R S — 2 3 2 C のポート0，2，3がつながっている場合 


プリンタ 

ポー ト〇 

ポ ー ト2 

ポート3 

BASIC のテキスト 

j 〇 r 





(D 1 S K の ノくツ フア) 


7 7 8 7 8 F 8 2 E 8 CD 9 6 D 


r ( 0 0 3 3 : 0 0 3 4 ) テキストエリアの先頭アドレス $ 0 9 6 D 

( 0 2 C 0 : 0 2 C 1 ) ボート0のテーブルのポインタ $ 0 7 8 F ; 

( 0 2 C 2 : 0 2 C 3 ) ポート 2のテーブルのポインタ $ 0 8 2 E 

； ( 〇 2 C 4 : 0 2 C 5) ポート3のテーブルのポインタ $ 0 8 CD J 

(9) 解読実行ルーチン用テーブル （0 1 EC 〜0 21 6) の設定 

キーヮードなどのテーブルのボインタを設定します（他のものは2章参照〉. 

• (0 1 EC 〜0 1 EE ) :” ON 〜”の場合のエントリへのジャンプ命令 

—$ 7 E ( J MP ) ，$ DCA 6 

(10) マシン語サブルーチン，ユーザ関数の開始アドレスの初期設定 

(初期設定では，全て Illegal Function Call エラーのエントリのアドレスニ 

$ 9 6 6 3を指しています） 

• (0217:0218) : EXE C の開始アドレス―$9663 

0 ( 0 2 1 9 : 0 21 A ) : US R 〇の開始アドレス—$9663 

• ( 0 2 2 B ： 0 2 2 0 : USR 9 の開始アドレス—$9663 

(11) I RQ 割り込みのサブルーチンのジャンプ命令の設定 

• (0 5 DF - 0 5 E 1) :タイマの割り込みのジャンフ°命令 

( PLAY の実行をします） 

—$ 7 E ( JMP ) ，$ ED 7 2 

• (05 E 2 〜 05 E 4) : KEY • IN の割り込みのジャンプ命令 

-> $3 9 (RT S ) 

(12) BAS I C 拡張用のサブルーチン•ジャンプ命令テーブル 

BAS I C 内のメインルーチンや解読実行ルーチンなど基本的に重要なルー 
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チンの中では，このテーブルをサブルーチンとして呼んでいるものがあります. 
これは，将来 BA S I C の拡張をする際の設定や，デバッグなどのために使う 
ことができるようにするためです〔現在の時点では DI SK モード時に一部の 
ものが設定されていますが，それ以外は全て，$39 ( RTS ) が最初に入っ 
ており，ただ戻るだけとなっています. BAS I C に更に拡張した機能を持た 
せたい場合には，ここをジャンプ命令に変更して，ユーザの作ったサブルーチ 
ンにジャンプさせて下さい〕. 

• (0260-0262) :ブロック入カルーチン拡張用 （$ D AA 6より) 

• (0263-0265) :解読ルーチン拡張用 （ S C 6 3 D より） 

• ( 0 2 6 6 - 0 2 6 8 ) :解読ルーチン拡張用 （ $ C 6 D 8より） 

• (029 F 〜 0291) :テキスト作成ルーチン拡張用 （ $ C 5 0 2より） 

炎他のものは，6 — 1節を御参照下さい. 


1—3 — 3 サブルーチン概説 

( 1 ) ブロック転送ルーチン 


アドレス]$ 8 5 9 7〜$ 8 5 9 E 

機 能 1 X レジスタの示すアドレスから， B レジスタのバイト数分だけ， U 
レジスタの示すアドレス以降に転送する. 

レジスタ ] A ， B ， X， U 

入力情索! B レジスタ=転送するバイト数 （ S $ FF ) 

X レジスタ==転送元の先頭アドレス 
U レジスタ==転送先の先頭アドレス 
復帰情報 j B レジスタが〇になるので， Z フラグがセットされる. 

X レジスタ==転送元の終了アドレス+ 1 
U レジスタ=転送先の終了アドレス+1 

% 説 1 このルーチンを使う際，注意しなければならないのは X ， U レジス 
夕の大小関係と転送領域の重なりです. X 2 U のときは問題はありませんが ，X 
< u のときに，転送領域が重なる場合は，転送元のデータが消去されます. 

なお， B レジスタに$ 0 0を入れて呼び出すと，2 5 6バイト分の転送が行われ 
ます. 
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(2) A , X レジスタ転送ルーチン 


アドレス,$ 8 5 9 F 〜$ 8 5 A 6 

^ W \ A , X レジスタの 3 バイトの内容を， B レジスタの値の回数分メモ 
リに繰り返し転送する. 

レジス 9 ~\ A , B ， X， U ( A , X レジスタの値は保存される） 

入力情報 A , X レジスタ=転送するべき値 

B レジスタ=転送回数 
U レジスタ=転送先の先頭アドレス 

(3) B 丨 0 S イニシアライズルーチン 


アドレス1 $867 B — $ 8683 

W W \ B I OS をイニシァライズ（初期化）する. 

レジスタ I A , X 

WORK ] (0 5 AO ) = RCB 用浓 R C B については，システム仕様參照 
S U Bl 生0 0 DE—B I OS ジャンプルーチン 


(4) 割り込みベクトル設定ルーチン 


アドレス| $ 8 6 9 2〜$ 8 6 A 5 

機 能1 ( FFF 2 〜 FFFD ) の割り込みベクトルを設定する. 

レジスタ] A , B , X , U 

WORK I ( FFF 2 〜 FFFD ) =割り込みべクトルレジスタ 

(〇 5 D 2) =割り込み （ IRQ ) マスクレジスタ 

(FD 0 2) =割り込み （I RQ ) マスク I / 〇ポート 

S U B I $ 8 5 9 7—ブロック転送ルーチン 

1^1次の表のように，割り込みベクトルを設定します.設定後は，1/ 
0ポート （F D 0 2 ) の割り込みマスクのうち ， R S - 2 3 2 C の Rx RDY の割り 
込みだけイネーブルにします . （FD 0 2 ) を設定した内容 （= $ 4 0) と同じも 
のが （0 5 D 2) に保存されます. 
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割り込み名 


S W 


割り込みレジスタ 


割り込みベクトル 


F F F 2 


S W 丨 2 


F F F 4 


IRQ 


F F F 6 


F F F 


ID 


割り込みの応备 


R T 


F F F 5 


01 D 4 


F F F 7 


FIR 


S W 


N M 


FFF8 ： FFF9 


FFFA：FFFB 


FFFC：FFFD 


01 E 0 
01 D D 


01 D 7 
01 D A 


M P S D 2 F C 


M P $ C 9 5 3 


R 丁 


R T 


( 5 ) コンソール初期化ルーチン 


アドレス| $ 8 6 5 6〜$ 8 6 7 A 

機 能 |種々のコンソール制御の初期化を行う. 

レジスタ] A ， B ， X， U 

WORK I (02 A 2 〜 02 AB ) =TAB 設定テーブル 

(00 BF ) =ファイル番号 

SUB ! $ 8 6 CC —PF •キー設定ルーチン 

$ 8 6 A 6 — TAB 設定ルーチン 
$ DBE 1—コンソール機能設定ルーチン 
$ E 4 4 E — タイマ設定ルーチン 
$ C 8 B C — 画面設定ルーチン 
$9 BDB — PRINT OUT ルーチン 

解 説 1簡単に各項目について説明します. 

春 PF . キーの設定 （$86 CC ) 

$ 8 6 CC ルーチンは，10個の P F • キーを一度に設定します. 

• TAB • キーの停止位置の設定 （$8 6 A 6) 

T A B 設定 テーブル （ 02 A 2 〜 02 AB ) を セットし， $86 A 6 で BIOS 
の TAB SET 〔システム 仕様 2. 2.11(11)〕 を呼び，設定します. 

♦コンソール 機能の設定 

$ DBE 1 を呼び， BIOS の CONSOLE CONTROL 〔システム仕 
様 2 . 2 .11(12)〕をリクエストさせて，制御フラグに$17を代入しているた 
め，コンソール機能として， TAB 動作，オーダ動作，力ーソル表示，プット 
ウェイト （ ESC * キーの入力受付を可能にする〉の处理を行うことになりま 

す. 


25 













♦タイマの設定 

$ E 4 4 E は ， BIOS の SET TIMER 〔システム仕様2 .2.1 4(1)〕 
をリクエストし，制御レジスタ （ TC ) に，$0 8を代入して，0時割り込み 
のみを可能にします* 

©画面の設定 

$ C 8 B C では ， B I 0 S の I rn T 〔システム仕様 2. 2.11(1 )) をリクエ 
ストして画面の設定を行っています.このルーチンは，ワークエリアからハ。ラ 
メータを次のように取ります. 

•背景色 $00 (黒） —（01 E 6) 

•桁数 $28 (= 4 0 ) —(00 C 3) 

春行数 $14 (= 2 0 ) — (030 D ) 

♦スクロ ー ル開始行 $ 0 0 (= 0) — (030 E ) 

•スクロール 終了 行 $13 (=19) — ※ 

• PF •キー表示 $00 ( N 0 ) — (0310) 

泰初期設定後の画面消去 $ 01 ( YES ) 

• 単色表示 $00 ( N 0 ) — (05 AD ) 

欲次式で計算されます： （ 0 3 0 F ) — (0 3 0 E ) +1 
•先行入力の禁止〔システム仕様 2. 2. 4(8)] 

$ 9 BDB で （0 0 B F ) を使用するため，デフォルト値 （== 0) を設定して 
画面への出力指定をしています〔4章参照)•次に，画面へ$1 B ， $68を$ 
9 B D B を使って出力します（実際には，サブシステムに出力され，先行入力 
の禁止をオーダします.これを解除するときは， PRINT CHR $ (&H 
IB ) + CHR $ (&H 6 7) を実行します〕. 


^ TAB 設定ルーチン （$ 8 6 A 6 )， PF •キー設定ルーチン （$86 CC ， 
$ 8 6 C F ) については，フェーズ I を御参照下さい， 
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1—4 DISK-BASIC-INITIALIZE 

D I S K モード時に起動されるこのルーチンは，その役目が済んだ後は消去さ 
れる運命にあります.しかし，その間に行う初期設定は， DISK - BASIC 
を呼ぶ際に必要不可欠のものです. 

DISK.BASIC • INITIALIZE (以下 D B S I N I と略す）ル 
—チンは，データも含め （6 E 00 〜71 D 5 ) に配置されており， （ 0 5 9 F ) 
の内容が$ 0 0でないとき （ FC 00: FC 01) の示すアドレス （= $ 6 E 0 
0) に従って起動されます.このルーチンは，また，ユーザのプログラム （BA 
S I C で記述されているもの）のオート • スタートを行うこともできます.なお， 
このルーチンの （6 E 00 〜 6 FFF ) の部分は，トラック0のセクタ15，16 
に格納されています. - 

1 — 4—1 主な動作 

參ディスクから I D セクタを読み，そこにドライブ数とファイルバッファ数が書 
かれていれば，それらを設定します. 

•ディスクのディレクトリで “ STARTUP ” というファイルの有無を調べ， 
ない場介はドライブ数とファイル数をキーボードから入力し，設定します. 
•ワーク エリ アの設定を行います. 

( 1 ) ディスク用のバッファ領域の確保 

(2) ディスク用に新たに追加されたキーワード，関数などの更新処理 

(3) ディスク用の入出カサブルーチンのジャンプ命令の設定 

(4) 解放 RAM 領域の確保 

錄テキスト • 変数の消去，初期化を行います. 

❿ “ STARTUP ” というファイルがあれば，それを ， RUN (オート•スタ 
—卜）させます.ない場合は ， COLD * S TART ルーチンに戻ります. 

1—4 — 2 ユーザ.プログラムのオート•スタート 

オート•スタートが可能な条件は，次の2つです. 

• I D セクタの3，4バイト目に，各々ドライブ数 （$01 〜 $04) とファ 
イルパ、ッファ数 ($ 0 0 ~ $ 0 F ) が書かれていること. 

® “ STARTUP ” というファイル名でセーブ （ SAVE ) された，プログ 
ラム （BA S I C で記述）がドライブ〇にあること. 
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I D セクタを 
説み込み，ド 
ライブ数とフ 

アイ/レ，バツ 

ファ数が書か 
れていれば， 

それらを設定 
する 


ディレクトリ 

から， 

“STARTUP” 

という名のフ 
アイルを兒つ 

け出す 


DBS I N I の主な動作（才 




スタート関係を中心に) 


$6 EOO 


DBS INI 


DBA $7213 
TRK =0 
SCT = 3 


DISK READ 


ERROR ? 


1 D セクタから 
ドライブ数.フ 

アイルバツフア 

数を読み込む 


/ Id セクタ 
書かれていた力 


/テ v レクトリ(卜 
だある: 

yesT 

イル名> 

STARTUP” ？ . 

次のファイル名 (. 
する 


N0 


’そのセクタ 

終り 7 / 

_ ] yes _ 

SCT * — SCT +1 


オート•ス 
タートでな 
い場合は， 
キーボー ド 
から入力を 

Z 1 —- 、 

U 1 


N0 


YES 1 


% 

ドライブ数•フ 

P イルバッファ 

没の設定 




TRK 

SCT 

^=4 

- • 


<^SCT = 

N 0 

= 33? 


DISK 

READ , 


YES 


.ZL —サの 
プログラム 

を，オート， 

スター トさ 
せることが 
できる 


N 0 


YES 


AT . ST=TRUE 



MBA 
T R K 
SCT 
AT ■ 


AT - ST-FALSE 


キーボー ドから， 

ドライブ数*ファ 
イルバッファ数を 
読み込む 




ドライブ数，ファイル 

バッファ数の設定 






ワークエリア 
の設定，およ 
びその他の処 
理 


^^ AT . ST ? 〆 

_7 RUE [ _ 

RUN "STARTUP 
を実行する 


FALSE 


USER 

PROGRAM 


COLD • 
START 


ST 


データバ 
トラック 
セク f 
オート* 


■/ フ T の光姒番地 
{ 0〜 3 9) 

( 1〜3+2 ) 

スタート フラグ 
( 7 9 丨 乂、 


DISK READ ： 4-5 


(4) 参照 
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そこで，サンプルとして ， I D セクタの3バイト目と4バイト目を設定するプ 
ログラムとオート•スタートで起動するプログラムを BA S I C で作りました. 

1番目のプログラムで ， I D セクタを書き込み， 2 番目のプログラムを入力し 
て， “ STARTUP ” というファイル名でセーブして下さい， 

(SAVE “ STARTUP ” H ) 

リセットボタンを押して ， CO LD • START させると，2番目のプログラ 
ムがオート•スタートします. 


10 ¢ 
11 ( 


1 70 
130 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


120 ' 

DRV ぃ … 

Number o-f 

Drive5 


130 1 

FBUF . 

Number o-F 

File 

Bu+ f ers 


140 J 

DRV 本 . 

CHR*(DRV) 

f or 

ID sector 

wr i te 

150 f 

FBUF$ . 

CHR$(FBUF) 

for 

ID sector 

write 

160 J 

A$ , B$ . 

Variab1es 

far 

System Random Buffer 


ID WRITER for AUTO START 

黃*黃菁黃升#普##菁*#荼*簧箦箐簧簧*普******篑**黃箐贅*菁菁升#脊普 


f 升***#***#簧朞箐■贅*普^■黃箐鸶*箐箐#普#箐篑簧*箐箦务簧蒉朞簧綦#菁 *##****♦**♦* 

CLEAR 1000 

# INPUT Drives 2¢ File Buffers 

INPUT ,j Hdw many Dr i ves do you want M ; DRV 
IF DRV>4 OR DRV<1 THEN BEEPiSDTO 200 
INPUT J, Haw many File Buf+ ers do you want 11 ; FBUF 
IF FBUF>15 OR FBUF<0 THEN BEEP:GOTO 220 
f CHANGE integer to character ior Sector Write 
DRV$=CHR$ <DRV) 

FBUF$=CHR$(FBUF) 
f WRITE ID Sector 

FIELD #0 |128 AS A* f 128 AS B$ 

'read 

DUMMY$^DSKI$<0,0,3) 

"change 

LSET A$= し EFT 丰 (A*,3)+DRV$^FBUFt+RIGHT$(A$, 123) 

# write 

DSKQ$ 0,0 ,3 

END 


RUN 

How many Drives do you want? 2 

How fnany File Buffers do you want? 5 

Ready 


DISK: EDITOR FOR FM - 7 

DRIVE : 0 TRACK : O SECTOR : 3 




+0 

+1 

+2 
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20 

m 

m 

00 

00 

00 

00 
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00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

OO : 


• 

m 

■ 

_ 

■; 
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■l 
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■ 

• 
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.3 (J 

u 

* 
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00 

00 

00 

00 

00 

00 

00 

00 

00 
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10 1 START UP PROGRAM 

20 ' 簧荼菁簧关并着箐箐脊箐■箐箐菁#餐餐#并并餐箐朞长#簧簣普脊并关，■黃普#青箐簧脣雀菁餐普着餐鲁#箐菁#簧 

30 f FNA( X ) ... Get 2-Byte Data from Memory(X;X^l) 


40 f AD Device 「able Address Pointer 

50 f DV$ .. Devi ce Name (get from Device Table) 

60 f K «..».•». Sentinel for printing "I/O 1 * 

70 ' WORK-AREA 

80 ' (71FA) Number o-f Drives 

90 " (71FB) .... Number of File Buffers (for User > 


100 * ¢0033:0034 ) .,. Free Area Top Address 

11 0 J ( 003 Fs 0040 ) Free Area End Address 

120 J (06EC- ) ..• Device Table Address 

130 f 菁 * 箐 * ■« ■ 篑贅 # 卄 *# 昝 * 卄篑箐 #* 并箐脊贅篑 # 菁 * 簧 # 箐簧簧箐 #* 箐菁 # 并长簧箐菁并箐 * 箐 # 普 #### 菁菁簧 * 

135 * 

140 DEF FNA<X)=CVI(CHR*(PEEK <X ))+CHR$(PEEK(X+ 1 ))) 

150 # 

16C) WIDTH 80 

170 ' F'ri nt out Messages 

180 PRINT USER DISK BASIC STARTS 11 : PR I NT 
190 PRINT "Message : ,J ; 

200 PRINT SPC ¢3) 11 You can access next Devices*" 

210 • Print out usable DISK Drives 

220 PRINT SP 匚 （ 16> ; "Disks 

230 FOR 1=0 TO PEEK ： (&H71FA 》 

240 PRINT SPC (22> ;STR$(I) ; 11 : ^jSPCO) 5 

250 K=3:G0SUB 490 

260 NEXT 

270 1 Print out usable Inter Devices 
280 PRINT SPC ¢16) ;"Others,. n 
290 AD"?<H 6 EC:K-i 
300 WHILE FNA (AD)OO 
310 DV$=_"_ 

320 FOR 1= 0 TO 3 

330 DV«=DV*+CHR*(PEEK(FNA(AD)+1)) 

331 "Bet character -from Device Table 

340 NEXT 

350 PRINT SPC (20) ;DV$; 11 : " ^ SPC(5); 

360 B0BUB 490 

370 AD=AD+2:K=K+1 

380 WEND 

385 f Print out other messages 
390 PRINT 

400 PRINT TAB ¢12) *'You have M ; PEEK C^H71FB) ; 4l File Buffers, u 
410 PRINT 

420 PRINT TAB ¢12) "Free Text Area Top is m r, ; 

430 PRINT RISHT$(^0 n +HEX$(FNA<^H0033) ) ? 4) ; " . ,f 

440 PRINT 

450 PRINT TAB(12) "Free Area Size is &H M ; 

460 PRINT HEX$(FMA<?-<Hc ： >03F)-FNA(3^H0033) ) ; 11 Bytes. 11 

470 NEW 
480 END 

485 Print out Input or Output 
490 ON K GOTO 510,520,500,520 
500 PRINT 11 For Input & Output 11 s RETURN 

510 PRINT "For Input " s RETURN 

520 PRINT *_For Output 11 : RETURN 

530 END 

USER DISK BASIC STARTS 

Message z You. c3n bccbss nsxt Dev 1 ces• 

Disks■•» 

0 ； For Input み Output 

1 • For Input & Output 

Others. - 

KYBD; For Input 

SCRNs For Output 

CASO: For Input ^ Output 

し PTOs Far Output 

You have 5 File Buffers ， 

Free Text Area Top is ^H1035- 

Free Area Size is ?<H 6073 Bytes• 
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1—4 — 3 ドライブ数，ファイルバッファ数の決定 


才 ー ト•スタ ー トする場合は ， I D セクタから読み込んで設定されますが，そ 
れ以外の一般の場合はキーボードからユーザが入力することになります. 

キーボードから入力する際の動作は，次のようになっています. 

(1) “D I SK VERSION ” を出力します. 

X レジスタに文字データの先頭番地 （= $ 719 C ) を入れ ， P R I N 
T ルーチン（二 $7 4 A 6) で出力します. 

(2) “How many disk drives ?” を出力します. 

この出力は， “How many disk ” と “ drives ?” を別々に行っています. 
出力の仕方は前回と同様ですが，文字データの先頭番地は各々，$ 71 
AB , $7 1 BA となります.また，これらの出力の前にフィールド設 
定ルーチン （=$ D 9 2 F ) を呼んで，文字出力のフィールドの設定を 
しています. 

(3) キー入力をして，ドライブ数を設定します. 

まず， BEEP ルーチン （=$ DB 4 9) を呼んでから，1行入カルー 
チン （=$D 8 0 7 ) を呼び，キーボードからドライブ数を入力します- 
この際， 何も入力しないで RETURN キーを押すと，デフォルトとし 
て2が設定されます.何か文字が入力された場合は，文字解読をして数 
値に変換するルーチン （= $ 7 0 5 C ) を呼んで，範囲内なら U 以上 
4以_ド），その値に一1したものが （7 1 F A ) に入ります. 

※一1するのは，ドライブ番号が0から始まっているからです. 

(4) “How many disk files ( 0 — 15) ?” を出力します. 

⑵と同様に，2つの部分に分けて出力しています. “ files (0 — 15 )?" 
の文字データの先頭アドレスは$ 71 C 8です.文字データは，その最 
初のデータが文字列の長さを示し，その次から文字列データが長さ分入 
っています. $74 A 6 の PRI NT ルーチンのための文字データは， 
いつもこのようにしておきます. 

(5) キー入力をして，ファイルバッファ数を設定します. 

(3) とほぼ同様ですが，範囲は，0以上15以下になります.また，数値 
は， (7 1 F B ) に設定されます. 

キー入力の際も，フィールド設定ルーチン （=$ D 9 2 F ) を呼んでフ 
ィ ー ルドの設定をしています. 
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1—4 — 4 DISK モードでのワークエリアの設定 

DISK モードでは，新たにディスク用のバッファや，ワークエリアが設定さ 
れます.ここでは，その中で重要なものについて解説します. 

(1) ドライブ数，ファイルバッファ数の設定 

I D セクタ，あるいはキ ー ボ ー ドからの入力により，設定されます. 

參 （7 1 FA ) :ドライブ数 （0 〜 3> 

—入力した数一1の値がここに入る 
• (7 1 F B ) :ファイルバッファ数 （0 〜 1 5) 

—入力した数の値が入る 

(2) ドライブテーブルの先頭アドレスの設定 

各ディスクドライブの中に入っているディスクから FAT (File Allocation 

Table =答クラスタの使用状況を記録する領域）を，読み取り，変更し， 
再び記入するための領域がドライブテーブルです.これは，ドライブ数 
(1 〜 4) 分，確保されます.また，その先頭アドレスは ， RS — 2 32 
C が作 H 固装着されているかによって異なってきます.ここでは， Ofl 叫と 
1個のときの値を示しますが，それ以外のときは，計算法に従い計®し 
て下さい. 

镥 ( 71 D 6 ： 71 D 7 ) :ドライブテーブルの先頭アドレス 

~ ^ 0個 … $ 0 7 8 F 1個…$ 0 8 2 E 

〇計算法 

$ 0 7 8 F + ! (R S — 2 3 2 C の数）* $ 9 F | 

(3) ファイルバッファの先頭アドレスの設定 

ディスクに対して割り当てられるファイル用のバ •ッ ファ領域が： IR られま 
す.これらは，ファイルバッファ数+ 2個分，先姐アドレスが設定され 

ます，2個分余計に取られる理出は， D I SK • BAS I C で使う 「F 
I ELD # 0，〜 j で設定される 「D S KO $ j と 「D S K I $」用 

(システムランダムバッファ）のものが 一つと， ブログラムの入出力や 
「DSK [ N 1」（システム⑴） の もので計 2 flM 分余分に取られます.フ 
アイルバッファの: t 頭アドレスは，場合によって tt が変わってきますの 
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で計算法のみを載せておきます.実際には， 表彳 • 4 • 1に R S — 2 3 
2 C が0個のとき， 表 1 • 4 • 2に R S — 2 3 2 C が1個のときの値が 
出ています（なお，ファイル番号とファイルバッファ番号は，一致しな 
いので注意して下さい）. 

• (71 D 8：71 D 9) :システムランダムバッファの先頭アドレス 

• (7 1 D A ： 71 D B ) :ファイルバッファ林# 0 (システム用）の 

先頭アドレス 

© (7 1 DC ： 71 DD ) :ファイルバッファ##1の先頭アドレス 

※ （7 1 FB ) +2個分だけ，その先頭アド 
、 レスが設定される.それ以外のものは，$ 

0 0 0 0の値になっている. 

© (71 F 6：71 F 7) :ファイルパ、ッファ斿林14の先頭アドレス 

• (71 F 8：71 F 9) :ファイルバッファ：¢¢15の先頭アドレス 

〇計算法 

ファイルバッファ## X の先頭アドレス 

= (71 D 6:71 D 7) + i (ドライブ数） * $ 9 E ! 

+ { ( X + 1 ) 氺 $010 F | 

※父はファイルバッファ番号を示す.ドライブ数は，1 〜 4の範囲である. 


(4) B A S I C テキストエリアの先頭アドレスの設定 

ROM モードでは，テキストの先頭アドレスは ， RS —2 3 2 C の個数 
によって変化しましたが ， D I S K モードの時はドライブ数，ファイル 
バッファ数によっても変化してきます. R- 体値は 表 1•4*1 や表 1* 
4 - 2に示します. 

® (0033：0034):テキストの先頭アドレス 
〇計算法 

テキストの先頭アドレス 

=$ 0 7 8 -F + { ( RS — 2 3 2 C の数） * $ 9 F | 

+ {(ドライブ数）* $ 9 E ! 

+ { (ファイルバッファ数+ 2 ) * $ 010 F 1+1 


※ 



1〜4の範囲で，ファイルバッファ数は，〇〜15 
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例 1 R S — 2 3 2 C 0 ; ドライブ数 1 ; ファイルノぐ v ファ数〇 


ドライブ 

システムランダム 

フ，イルバッファ 


* 墨 


tt S 〇 

BAS 1 C のテキスト領域 

丁一 7 J レ 

ハ 7 ファ 


0 7 8 F 0 8 2 0 0 9 3 C 0A4C 


嶔システムランダムバ/フ t は「 F I E L D it 0 〜」川に，フ t イルバ，/フ t # 〇けフログラムの人出乃 
用などシステムで使われるため，ユーザ用のフアイルバッファがなくユーザのファイルをディスク（二紂 
して OPEN することはできない， 

例2 RS — 2 3 2 C (ポート 0)1 ;ドライブ数2 ;ファイルバッファ数5 


ポート〇 

■ 

ドライブ | ドライブ 

システムランダム 

ファイルパ 7 ファ 


ファイルバッファ 



テキスト 

ハ’ツフア 

テーブル 1 テーブル 

バッファ 

二 S 0 

* \ 1 « « # 

| S ^ 5 : 

領域 


0 7 8 F 0 8 2 E 09 DB 0 AEA 0 BF 9 0 F 2 6 1 0 3 6 

表 1 *4*1 ドライブテーブルとファイルバッファとテキストの先頭アドレス 

DRIVE TABLE TOP ADDRESS ^ FILE BUFFER TOP ADDRESS 
RS232C = 0 


DRIVES 



1 

2 

3 

4 

(7106: D7> 

DRVTB し 

078 F 

078F 

07BF 

078F 

(7iD8:D9> 

SYSRND 

0820 

08CB 

0969 

0A07 

(71DAsDB) 

m 

0 

093 C 

09 D A 

0A78 

OB 16 

(71DC:DD> 

林 # 

1 

0A4B 

0AE9 

0B87 

0C25 

(71DE:DF) 

祐 # 

2 

0B5A 

0BF8 

0C96 

0D34 

(71E0sEi> 

林 # 

0 

0C69 

0007 

0DA5 

0E43 

<71E2:E3) 

林轉 

4 

0078 

0E16 

0EB4 

0F52 

C71E4:E5) 

轉 # 

5 

0E87 

0F25 

0FC3 

1061 

(7LE6sE7) 

林 # 

h 

0F96 

1034 

1 0D2 

1170 

(71E8:E9> 

神 # 

7 

10A5 

1143 

11E1 

127F 

(71EA:EB) 

## 

a 

11B4 

1252 

12F0 

13SE 

(71EC:ED) 

## 

9 

12C3 

1361 

13FF 

149D 

(71EE:EF) 

林 # io 

1302 

1470 

150E 

15 AC 

C71F0:F1) 

##1 

1 

14E1 

157F 

1610 

16BB 

(71F2:F3) 

##12 

15F0 

168E 

172C 

17CA 

<71F4:F5i 

拌轉 13 

16FF 

1790 

183B 

1809 

(71F6;F7) 

##14 

180E 

18AC 

I94A 

19E8 

C71FS;F9) 

##15 

1910 

19BB 

1A59 

1AF7 

TEXT TOP 







(0033:34) 







FILE BUFFERS = 

0 

0A4C 

0AEA 

OB 80 

0C26 

FILE BUFFERS = 

1 

OB5B 

0BF9 

0097 

0035 

FILE BUFFERS = 

つ 

OC6A 

ODOB 

ODA6 

0E44 

FI し E BUFFERS = 

: 3 

0079 

0E17 

0EB5 

0F53 

FILE BUFFERS = 

4 

0E88 

0F26 

0FC4 

1062 

FILE BUFFERS = 

5 

OF 9 フ 

1035 

1003 

1171 

FILE BUFFERS = 

6 

10A6 

1 144 

11E2 

1280 

FILE BUFFERS = 

- 7 

UB5 

1253 

12F1 

138F 

FILE BUFFERS = 

B 

12C4 

1362 

1400 

149E 

FILE BUFFERS = 

: 9 

1303 

1471 

15 OF 

15 AD 

FILE BUFFERS = 

10 

14E2 

1580 

161E 

16BC 

FILE BUFFERS = 

: 11 

15F1 

16SF 

1720 

17CB 

FILE BUFFERS = 

= 12 

1700 

179E 

1B3C 

18DA 

FILE BUFFERS = 

^ 13 

180F 

18 AD 

194B 

19E9 

FILE BUFFERS = 

: 14 

191E 

19BC 

1A5A 

1AF8 

FILE BUFFERS = 

^ 15 

IA2D 

!ACB 

1B69 

1C07 


* DRVTB し =DRIVE TABLE 

★ SYSRND = SYSTEM RANDOM BUFFER 

* 林 # O used for SYSTEM 

# The FILEBUFFER not set up by DBSINI takes $0000 
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表 1_ 4 • 2 ドライブテーブルとファイルバッファとテキストの先頭アドレス 

DRIVE TABLE TOP ADDRESS ち FILE ： BUFFER TOP ADDRESS 
RS232C =1 


DRIVES 


1 


3 

4 

(71D6:D7) 

DRVTBL 

082E 

082 E 

082E 

082E 

<71D8;D9> 

SYSRND 

08CC 

096A 

0A08 

0AA6 

¢7 IDA;DB) 

m 0 

09DB 

0A79 

OB 17 

0BB5 

(71DCs DD) 

_ i 

0AEA 

0B 88 

0C26 

0CC4 

(71DE:DF> 

##2 

0BF9 

0097 

0035 

0DD3 

(71E0:E1) 

## 3 

OD08 

0DA6 

0E44 

0EE2 

<71E2:E3) 

##4 

OEI7 

0EB5 

0F53 

OFF! 

(71E4sE5) 

## 5 

0F26 

0FC4 

1062 

1100 

(71E6sE7) 

## 6 

1035 

10D3 

1171 

120F 

<71E8:E9) 

## 7 

1144 

UE2 

1280 

131E 

(71EA;EB) 

林林 B 

1253 

12F1 

138F 

1420 

(71E0sED) 

抻林 9 

1362 

1400 

149E 

153C 

<71EE:EF) 

##10 

1471 

150F 

15AD 

164B 

(71F0sFl) 

##11 

1580 

161E 

16BC 

175A 

(71F2;F3) 

##12 

168F 

1720 

17CB 

1869 

<71F4:F5) 

##13 

179E 

183C 

18DA 

1978 

<71F6:F7) 

# 林 14 

1SAD 

194B 

19E9 

1A87 

(71F8:F9) 

##15 

19BC 

1A5A 

i AF8 

1B96 


TEXT 丁 OP 
¢0033; 34) 


FILE 

BUFFERS 

m ifc* 

0 

OAEB 

0BB9 

0C27 

0CC5 

FILE 

BUFFERS 

i IMh 

1 

OBFA 

0C9S 

0036 

0DD4 

FILE 

BUFFERS 


2 

0D09 

0DA7 

0E45 

0EE3 

FILE 

BUFFERS 

= 

3 

0E18 

0EB6 

0F54 

0FF2 

FILE 

BUFFERS 

■i- 'J 

4 

0F27 

0FC5 

1063 

1101 

FILE 

BUFFERS 

was- 

5 

1036 

1004 

1172 

1210 

FILE 

BUFFERS 


6 

1145 

11E3 

1281 

131F 

FI し E 

BUFFERS 


7 

1254 

12F2 

1390 

142E 

FILE 

BUFFERS 


8 

1 363 

1401 

149F 

1530 

FI し E 

BUFFERS 


9 

1472 

1510 

15AE 

164C 

FILE 

BUFFERS 


10 

1581 

161F 

16BD 

175B 

FILE 

BUFFERS 

■ ■ i 

11 

1690 

172E 

1 フ CC 

1S6A 

FILE 

BUFFERS 


12 

179F 

1830 

1SDB 

1979 

FILE 

BUFFERS 

— 

13 

1SAE 

194C 

19EA 

1A88 

FILE 

BUFFERS 


14 

19BD 

tA5B 

1AF9 

1897 

FILE 

BUFFERS 


15 

1ACC 

1B6A 

1008 

1CA6 


* DRVTB し =DRIVE TABLE 

* SYSRND = SYSTEM RANDOM BUFFER 

* ##0 used for SYSTEM 

* The FI し EBUFFER not set up by DBS INI taikes 车 0000 

(5) システムランダムバッファの初期設定 

このバッファは， 「F I E LD # 0 〜」で設定される 「D S K 0 $」， 
「D S K I $」 用で，それ以外の用途で使うことがないので，ここでラ 
ンダムファイルのバッファとしての初期設定を行っておきます. 

( 71 D 8 ： 71 D 9 ) の値を X とおくと次のようになります. 

* ( X ) :ランダムファイルの指定 

—$4 0 

* ( X +07 : X + 0 8 ) :ファイルバッファの長さ 

— $ 010 0 ( 2 5 6 バイト） 

* ( X + 0 9 : X +0 A ) : I/O バッファの始まるアドレス 


—X+ $ 0 F 
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1 — 4 — 5 ワークエリァ設定後の動作 

7-クエリア設定後の DB S I N I の動作は，以下のようになります. 

• $ 8 F 3 9をコールして，テキスト，変数の消去と初期化を行います. 

•汎用読み込みポインタ （D 9 : DA ) を$ 8 7 5 8にします. 

•現在，ダイレク.トモードであることを示します〔（0 0 4 7 : 0 04 8) を， 
$ FFFF にします〕. 

※以上の3つは ， COLD • START ルーチンで行っていることですが，そ 
の設定する前に，このルーチンにジャンプしてきたため，代りにここで行っ 
ています. 

• P • F キーを DI SK モード). 1 j にします.具体的には， X レジスタに$ 6 E 0 3 
を代入し，$ 8 6 C F を呼び出します . PF •キーのデータは，$ 6 E 0 3〜 
$ 6 E 4 3に格納されています. 

これらの処理が終わると，才ート•スタートフラグ （7 21 3) を参照して，そ 
の値が0ならば，割り込みマスクを解除して，$ 8 6 3 E (1 — 3 — 1 節）へジ 
ャンプします.才一1、.スタートフラグ（7 213〉の値が0以外であれば，害 II り 

込みマスク解除後 ， RUN “ STARTUP ” を実行します， 

1 —5 HOT • START 

HOT . ST ART ルーチンは ， R E S E T がかかったときに，ブレーク•キ 
—が押されていれば起動します.そのエントリは ， （F B F C : F B F D ) の内容， 

すなわち$ 8 6 8 4です （1 — 1—2 節参照). 

HOT * ST ART ルーチンの動作は，以下のようになります. 

籲 DP レジスタをクリアします. 

♦コンソールな どの初期化を行います （$8 6 5 6を コールし ます）. 

※このため，ホット•スタートをかけると ， P F •キーは， DISK モード時 
でも， ROM モード時と同様に設定されます（詳しくは， 1—3 — 3節の 
$ 8 6 5 6を御参照下さい.以下同様). 

• BIOS をイニシァライズします （$86 7 B をコールします）. 

♦割り込みべクトルを設定します （$8 6 9 2 をコールします）. 

書割り込みマスクを解除します （ CC レジスタの F フラグと I フラグを〇にし 

ます). 

これらの处理が終わった後， Abort ルーチン （$ D 6 8 0〉に飛びます. 
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第 2 章 BASIC インタブリタの骨格 


はじめに 


FM — 7をはじめ，現在普及しているパソコンはすべて， BASIC ( Beginner’s 
All Purpose Symbolic Instruction Code ) と呼ばれるプログラミング言語体系 
が主軸となって構成されています.しかし ， BAS I C で書かれたプログラムを 
実際に実行しているのは，インタプリタと呼ばれる，おびただしい数のマシン語 
ルーチンの有機的結合体なのです.なお，「ルーチン」というのは「一定の仕事を 
行う，小さなプログラムのひと塊」のことをいいます. 

さて，もうすでに御存知の方も多いかと思いますが，我々がキーボードを叩いて 
打ち込んだ 「PRINT AJ とか 「 Y 二 S I N ( X )」などといったプログラム 
は，そのままアスキーコードでメモリーに書き込まれるのではなく，中間コード 
と呼ばれる一種の暗号に変換された形でメモリーに格納されます.中間コードと 
いうのは，我々が H で見てわかる 「PRINT AJ などといった BAS 1 C 言 
語と，コンピュータが即実行することのできる「7 E AB F 4 ($ ABF 4 
番地へとジャンプする命令コード）」のようなマシン語との合の子的な存在であっ 
て，インタプリタの骨格を成しているのは，中間コードの集合体である中間言語 
プログラムを作成する部分と，中間言語プログラムを実行する部分の2つである 
といってよいでしょう.多くの ， BAS IC をある程度マスターした方々にとっ 
て ， BAS I C プログラムが中間言語へと変換されていく過程，また，中間言語 
として蓄えられているプログラムがどのように解読され実行されていくのか，と 
いうことは，興味津々な事柄であるにもかかわらず，謎のベールに包まれた神秘 
の森で，なかなか立ち入り難いところではないでしょうか.実際，インタフ°リタ 
について，詳しく知り尽くすためには，何十 Kbyte ものマシン語プログラムを解 
析しなければならず，かなり骨の折れる f : l : 事であるといえましょう. 

この章では，主として ， BAS I C プログラムを中間コードに翻訳するルーチ 
ンと，中間コードを解読.実行するルーチンの2つの部分にメスを入れ ， B A S 
IC 言語体系の骨格となる部分について謎解きをしていきます. 

なお ， 「B A S I C プログラムの地の文」という表現がいくつか出てきますが， 
「地の文」とは主に「注釈文字列や文字列定数でない部分」のことを衍していい 
ます. 
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2—1 BAS I C プログラムの格納形式 

BAS I C のプログラムを作成するにあたって，重要な領域が 3 つあります.行 
入カバッファ （$ 0 4 3 D 番地〜），テキストバッファ （$ 0 3 3 C 番地〜〉，テ 
キストエリア（標準 R OM モード時，$ 0 7 9 0〜）の3つです.また，各エリ 
アがどこから始まってどこで終わるのかを指し示すポインタ群をはじめ，各種の 
逭要な情報が詰め込まれているワークエリア （$ 0 0 0 0 〜 $ 0 7 8 F 番地）は， 
常時インタプリタから参照されており，先の行入カバッファ，テキストバッファ 
はともに，このワークエリア内にあります（図2 • 1 • 2参照)_ 

さて，我々が キー ボードを叩いて入力したプログラムは一行入カルーチンによ 
って，アスキーコードのまま「行入カバッファ」に一時的に蓄えられます.行入 
カバッファ内の1行のプログラムは，次の瞬間 「BASIC 中叫言語翻訳ルー 
チン」によって中冏言語に翻訳されながら，「テキストバッファ」に格納されて 
いきます.最後に，入力された1行が「行番号」を持っていれば，テキストバッ 
ファ内の1行が「テキストエリア」内の所定の位置に転送され，「行番号」を持っ 
ていなければ，「ダイレクト命令」とみなして実行されます.以上の様子を簡単に 
図示したのが図2 *1-1 です. 


図2 • 1 • 1 —行入力および翻訳•格納の様子 
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それでは，中間言語プログラムは一体どんな形で格納されるのでしょうか. 
一例として，まず， 


1 O^PRINTuA 

2 OuGOTOu2 0 

といった，簡単なプログラムを書き込んで調べてみましょう. 

このプログラムが，広いメモリ空間のどこに書き込まれているかを調べるた 
めに ， MON (モニタ）コマンドを入れて，モニタ上で 「DO 0 3 3」と打ち込 
んでみると， （33: 34〉は$0790 (この値は標準 R OM モードでの値であ 
り， D I SK モードで例えば DR I VE 数2， F I L E 数2を指定すれば，$ 0 
D 0 8となります）となっています.図2‘ • 2 • 2に示した通り， （ 3 3:3 4 ) 
にはテキストエリア先頭番地が入っていますから ， BAS I C の中間言語は，$ 0 
7 9 0番地から格納されていることがわかります.さっそく，モニタ上で 「 D 0 
7 9 0」と打って，先程のプログラムの中間言語を打出してみると，次のように 
なります. 

☆0790 番地 

0 7 9 8 0 0 0 A B 9 2 0 410 0 

① ② ③ ④⑤⑥ 

☆0798 番地 

.0 J A 4 0 0 1 4 8 7 CD 2 0 FE F 2 0 014 

①’ ②’ ③’③"④’ 糸 


☆ 0035:36 

0 7 A 6 

jam ^m. 

(変数エリアスタート：テキスト終了） 

B AS I C のプログラムは，行ごとにひとかたまりになっており，中間言語で 
は，これら各行の区切りには必ず ， NULL ($ 0 0) が置かれます.逆は必ずし 
も成り立たず，$ 0 0があるから といって， それが必ずしも行の区切りを表して 
いるとは限りません.例えば，上の例では⑥と⑥'が行の区切りを’表していますが, 
②，②卞よび※の中に含まれる$ 0 0は「行の区切り」ではないのです.この辺 
の事情は，後の章で説明する，行番号検索•非実行文のスキップなどで特に重要 


⑥， 

☆ 0 7 A 4 

0 0 0 0 
①" 
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な意味を持ってきます. 

さて，各行の先頭には，次の行の先頭番地を指し示している「リンクポインタ」 
と呼ばれる2バイトのデータが置かれます. 一 兄，無用の投物のようですが ， G 
0 T 0 • GO SUB 文の飛び先検索をはじめ， Mi の^=炱索操作の際に非常に役に 
立ちます.中間言語ブログラムを見ていく際，このリンクポインタを手がかりに 
して迪っていけば，次の行がどこから始まるのかが-一 H 瞭然であリ，プログラム 
を見失わないで済む訳で，我々にとっても重宝なものです.実際，上の例でも① 
を見れば，次の行が$ 0 7 9 8番地から始まるとわかリ，その手前の⑥の$00 
が1行目の終りとなることがすぐにわかリます. 

次の，②や②'に書かれているデータは，それぞれの行の行 ff り•を表す16進数 
です . F —B A S I C では，行番号として〇〜63999の整数を使うことが許 
されていますから，各行ともこの位置には，$ 0 0 0 0から$ F 9 FF までの行 
番号定数が入ることにな 1 )ます. 

3番目に位置する，③の $ B 9, ③'の$ 8 7 や，③”の$ CD などは一体なんで 
しょうか.アスキーコードで$ B 9は▼ケ ▼ というカナ文字のコードに該る訳で 
すが，実は，この $B 9こそが， ▼ PR I NT ▼を表現する中間コードなのです. 
同様に$ 8 7は ▼ GO ▼を，また，$ CD は ▼ TO ▼を表現します . BASIC 
インタプリタでは，プログラムを読み込んだ際に「予約語綴り」で始まる1節を 
発見すると，アスキーコードでカナ文字などの領域 （$8 0〜$ FF ) に位置す 
るコード，即ち，中間コードへと翻訳していくのです. BASIC 内で，カナ文 
字の変数名•関数名が使えない理由もここにあるのです.従って， BASIC プ 
ログラム中で，カナ文字を打ち込むと，すぐに 「 Syntax Error 」 が出てしまいま 
す（もちろん，文字定数内のカナ文字や，注釈文字列中のカナ文字は別ですが). 
プログラムの書き込み時においてこの 「 Syntax Error 」 が出るのは，上述のケ ー 
スの他には，行番号が0 〜 6 3 9 9 9の間にない場合と， ▼ GO ▼のあとに▼丫 
0▼もしくは ▼ SUB ▼がない場合（空¢71▼。▼が間にいくら狭まっていても， 
後に ▼ TO ▼または ▼ S UB ▼がありさえすれば，エラーは出ません）の2つだ 
けなのです . BAS I C プログラムの地の文にカナ文字を打ち込むことが，いか 
に致命的なミスであるかがわかるでしょう.なお，どの中間コードがどのキーワ 
ー ド（予約語）に対応するかについては， 6 — 4節「中間コードー覧表」などを 
随時参照して下さい.これらの表には，コードと予約語の対応だけでなく，各処 
理系のエントリ•アドレス（入口番地）も掲載してあります. 

④および④'の$ 2 0は，「空白」を表すアスキーコードです . B AS I C プログ 
ラム中では，ひとつながりの言葉（予約語綴り•変数名•関数名など〉の間に割 
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込まないかぎり，空 Q は無視されるようになっています.ですから，プログラム 
リストを出した際に見やすくなるように，空白を挿入•配置するのも，プログラ 
ミング上達のための一-^のら'シとなります.⑤の$41は，変数名 「 A 」 を表す 
アスキー コードです.変数などの取扱いに ついては， 後の章で詳しく説明いたし 

ます. 

さて，※の $ FEF 2 0 014という長い綴りは 一-体 なんでしょうか.実は， 
これが 「GOTO 2 0」の「2 0」を示す定数表现なのです.簡単に説明する 
と，最初の $ FE が「定数」であることを表す中間コードで，特に，$ FE F 2 
で始まった場合，その直後の2バイトが「行番号」を丧す定数値であることをポ 
します. 

最後に，①'の$ 0 0 0 0 ですが，これは BAS I C のプログラムがここで終わ 
りとなることを示す区切文字です.通常，リンクポインタが入るべき場所ですが， 
ここに，次の行の始まる番地の代わりに$ 0 0 0 0が入っていることを発見する 
と，インタプリタは，「プログラムはここで終り」と判断するわけです . （FM — 
7では，テキストエリアにかぎらず，リンクポインタ方式が好んで用いられてい 
ますが，この技法，すなわち「$0 0ないし，8 0 0 0 0が if 寺殊な意味を衷す」 
というやり方が必ず採用されているので’，覚えておいて下さい）. 

テキス トエリ アの後には変数 エリ アが来るわけですが，この変数 エリ アが始ま 
る先頭番地を指すポインタ （ 3 5 : 3 6 ) は，確かに，プログラム終了の区切文 
卞$ 0 0 0 0が書かれている次の番地（上の例では$ 0 7 A 6番地）を t 旨してい 
ることがわかります. 
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2-2 変数の格納形式（単純変数および配列変数） 

単純変数エリア，ならびに配列変数エリアは，この順に，テキストエリアの後 
に置かれます.そして，それぞれのエリアの先頭番地を指しているポインタが， 
図2 • 1 • 2 にも示したように， （ 3 5: 3 6 ) および （3 B : 3 C ) です.テ 
キストの後に動的に配置される関係上，電源投入時•リセット（コールドスター 
卜）時•プログラム人力後 • NEW コマンド実行後などでは，単純変数エリア- 
配列変数エリアともに，その大きさは0であり，（ 3 5:3 6 )， （3 B :3 C ) 両 
ポインタの値は，フリーエリア先頭番地 （3 D : 3 E ) の値に等しくなります. 
テキストエリア.舉純変数エリア.配列変数エリアの三者が，ダイナミックに変 
化していく様子を示したのが， 図2 • 2 • 1 です. 

変数の登録.参照はすべて，$ 9 5 0 F 番地から始まる，一連のサブルーチン 
群（我々は，このルーチンを「変数サーチ」と名付けました）によって行われま 
す.この「変数サーチ」の節は第3章で扱うため，この節では，変数の格納形式 
などの説明をします， 


図2 • 2 • 〗各エリアの伸縮の様子 



\ 





N 


、 


、 


単純変数 

エリア 


、 


艰源投入時 

コ ー /レドスタ 


NEW コマンド ^ ii 


ブログラ 1 ムの入力 
RUN コマンドの，ぶ行 

CL EAR 夂の义行 


ERASE 文による 
配列の--部消去 


卜.■% 


配列変数 

エリア 


t 



フロ グラム人力 


ブログラムの実行時における 
変数の ifM 


DIM 文などによる 
配列変数の贷 M 


45 



2-2-1 単純変数の格納形式 

整数型 • 単精度ならびに倍精度実数型 • 文字列型の各単純変数は，ワークエリ 
アのポインタ （3 5: 3 6) が指す値を先頭#地とする単純変数エリアに，登録 
順いいかえれば 出てきた順で 格納されていきます. 一 ^?の単純変数を格納するの 
に要するメモリ容量は，変数名の長さと変数型の2つの要因によって決定されま 
すが，この格納の形式を示したのが図 2 * 2-2 です. 


図 2 • 2 • 2 


名標部 


本体 




へ- 


識別子 


4 


変数名部 


データ 部 


ヽ 




, 8 


(変数名の長さ）（変数型によって異なる) 


•識別子-•… 変数型 丨 n — 1 


I :位4 ビット 下位4ビット 


主な構造を説明します. 

まず 識別子で すが, 変数型を指示する上位4ビット と， 変数名部の長さマイナス 

1 の値をとる16進数が入る 下位4ビットから 成り立ちます.上位4ビットには， 

整数型 . $ 2 倍精度実数型 . $ 8 

単精度実数型 . $ 4 文字列型 . $ 3 

の各指標が格納されますが，この2, 4, 8，3の四つの指標は， FAC 1 内の 

データ型を-衣すワークレジスタ （$17 番地）に格納される値でもあります.ま 
た，この指標の値は 同時に，各型の変数のデータ部の長さをも示しています （実 
は，2，4, 8, 3の四つの衍標は，変数のデータ部に要するバイト数に合わせ 

て作られたものなのです）， 

下位4ビットの方は，変数名部の長さが1〜16バイトですから，それに応じ 
て，$ 0〜$ F の値が格納されますぐ※ 「 F - BASIC 文法書」に示してある 

ように，プログラムの側でいくら•良い変数名を用いてあっても，奥際に変数エリ 
ア内に登録されるのは頭から16文字までです.この，変数名の中途切捨もすベ 
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て 変数サーチ ルーチンで行われます）. 

このような識別子をわざわざ置いておく•必然性については，以下に順を追って 
説明することにします. 

(1) まず， 変数型指示子 （上位4ビット）が絶対に必要であるのはおわかりいた 
だけるでしょう，各変数型が混ざり合ってエリア内に羅列される方式を採って 
いる以上，この指示子がなれけば，後に続くデータが何のデータであるのか不 
明となり，変数情報が死んでしまうからです.しかし，各変数型に個別のエリ 
アを設ける方式では，それだけポインタの数が増えてしまい，管理が複雑化す 
るだけで実用的ではありません. 

⑵変数サーチ*登録を行う側にしてみれば，「できるだけ速やかに変数のピック 
アップや移動を済ませるような構造であってほしい」という要請があることで 
す.これまでの説明からわかるように，変数エリアというのは不定長データの 
集合体です（サーチを行う侧から見れば，エリア内に固定丧データが並んでい 
た方が行いやすいわけですが，それでは，ほとんどのデータで NULL ($ 0 

0) や空白 （$2 0) などの余分な文字を間に補うこととなり，メモリ効率が 
極端に悪化します） • そのため，不必要なデータはなるべく飛ばし読みする部分 
を多くする工夫が必要となリ，識別子は飛ばし読みを行う上で2つの働きを持 
ちます. • 

(i ) 捜している変数の識別子と比較することにより，変数型か変数名の長さが 
異なっている場合には，読み飛ばしを行い，次の場所を捜すようにします. 
(ii ) 識別子の上位4ビットは変数の 名標部の大きさを， 下位4ビットは データ 
部の長さを それぞれ示し，両者の和プラス2という値を計算することによ 
って，その変数がエリア内に占める大きさ（バイト数）を導くことができ 
ます.この値は同時に，読み飛ばしの幅でもあります. 

このうち， （ i ) の働きは，ルック•アヘッドという方式であり，例えば ，「V 
ARI ABLE 」 および 「VAR IABLE 2」 という2つの変数が登録されて 
いる場合に， ▼ V AR I A BLE ▼まで比較した後，次の文字 ▼ 2 ▼を見て初め 
て両者の識別ができるというのでは，非能率であり，毎回このような無駄をするこ 
とを避けるため，あらかじめ変数名の長さの比較で分類しています.また， （ ii ) 
の方は，変数エリア内におけるリンクボインタの一種ということができます. 

変数名 部には，変数名を構成する文字列がアスキーコードで格納されます. 
識別子の項で述べたように，変数名部の大きさは1〜16バイトの範囲内となり 
ます.変数名の規則と照合すれば，この場所には英大文字か数字のコードしか入 
らないことになっていますが （ 「F —BAS 1 C 文法書」参照；なお，英小文字 
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はテキスト作成ルーチン内で大文字に変換されます），しばしばこの規則から外 
れた文字コードで始まる変数名が格納されることもあります，これは DE FuF 
N 文 （ FN 関数定義文）中の関数名を単純変数エリア内に登録する際，一般の変 
数名と区別する目的で最初の一文字に$ 8 0を加えるという操作を行うことから 
起こる現象です. 

最後に，データ部（変数本体）について説明します.次頁の 図2 • 2 • 3 に， 
変数名が ▼ AB CD ▼であるとした場合の，各期の変数の格納形式を掲げます. 

このうち整数型は， FAC の2バイトがそのまま格納されるだけで，特に問題 

あ 1 )ません. 

単精度実数 • 倍精度実数の各数値型の格納形 A を御覧下さい. FAC では符号 
部は独立した1バイトを占め，仮数部最上位バイト中の MSB は常に1になって 
いますが，変数エリア上の数値は，メモリ節約のため 符号部が仮数部最上位バイ 
卜中の MS B に圧縮された形で格納されており， FA C における形 A と異なって 
いますので3:•怠を要します.このため ， F A C 1のデータを変数型に度して格納 
するルーチン [$ B 3 3 7番地から]，および，変数型のデータを F A C 1に ロー 
ドするルーチン [$ B 3 01很地から]がインタプリタ内に用意されています. 

文字列型の場〇，数値¥!のように容易にはいきません.文字列把変数について 
观解するためには，インタフ°リタ内部で文字列がどの様に扱われているかについ 
て触れておく必要があります. 

まず，文字列データが他の数値データと異なる点に注0すると，数値データに 
関しては，整数切が2バイト，単精度型では4バイトという具合に長さが決まっ 
ている「固定長」であるのに対し，文字列データは長さが決まっていない，即ち 
「可変長」であるということが見えてきます.例えば，データが次字列 T A ▼で 
あれば，データの娱さは1バイトであるのに対し，データが ▼ ABCDE ▼であ 
れば，長さは5バイトということになります.このように，データ丧が変動する 
ことによって，文字列データの取扱いは非常に複雑なものとなり，様々な技法が 
必要になるわけです. 

比較のため， 図2 • 2 • 4 の （1) を御覧下さい.図中の変数はすべて整数型 
とし,変数 B の内容を，現在の$ 0 4 3 D から$ 0 3 3 C に書換える必要が起き 
たとします.このとき，現在のデータ$ 0 4 3 D と，書換用データ$ 0 3 3 C の 
長さは共に2 バイ トですから，平に$ 0 3 3 C を$ 0 4 3 D のあった場所に置く 
だけで十分です.単精度梨や倍精度型でも同様です. 

ところが，可変]5:データを扱う文字列型では，先程とは様子が興なってきます. 
既存データと更新データの長さが常に等しければ，数値型のデータと同じで，まった 
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★この N における変数の殳数 8 はすべて 
VA BC D ▼ であるとする • 

★この NU おける実効番地とは ， T V A 
RPTR ( ABCD ) T でポされる游地 
のことを衍す. 


図2 • 2 • 3 各型の単純変数の格納形式 



★ N 中の G け，概数1?，単精度太数翌 • 倍精度実数嘲の仮纹部の MSB 
であり.仮数部の符号が格納される.仮数部が〖1:+の数ならばこのビッ 
卜は0 (クリア)となり，鼓の数であれば,1(セット）となる. 
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く問題は起こ 1 )ませんが，せっかく用意された文字列型が常に M じ文字数のデー 
夕しか扱えないのでは面臼くあ 1 )ません.可変;14データを向山に取扱うことがで 
きる点こそ，インタフ°リタ型言語たる B A S I C の特長の 一^ ) なのです（コンパ 
イラ言語を使っている際， /• め定義された文字数の文字列データしか扱えず，イ 
ライラすることもあります. fit ! 列宣言において ， D I M ^ A (2 *X + B — 5) な 
どといったことが許されるという BAS 1 C ならではの融通性が，文字列処理に 
おいても要求されています）. 

例えば，変数 B 内の既存デ ー タ ▼ A ▼ に対し，更新データ T ABCDE ▼を書 
き込もうとする際，更新データを前のデータ ▼ A ▼ のあった場所にそのまま押し 
込めば，次のデータである変数 C が破壊されてしまいます.ですから， f め変数 
C 以降のデータを後方に4バイト分ずらしてから，更新データ ▼ ABCDE ▼を 
喪き込む必要があります（は1 ( 2 ) — i および （2) - ii 参照）.同様に，更新 
データが既存データより短い場合でも，変数 C 以降のデータ群をあらかじめ前方 
にずらしておかないと， B と C の問に空白地帯が生じ，無駄ができてしまいます. 

前後にデータ个体をずらすこのような方法は，相当に手問のかかる作業を要し 
ます.そして，文字列変数を何十個，何百個と使用するプログラムにおいては， 
かなりの時間をこの操作だけで诮费することになります.例えば ， BASIC 
スク リーンエディ タでは この 方式が採用されておりますが（次の節のテキスト作 
成の項[で説明します)，巨大なプログラムの中に十行程度の修: iF •を加えた場合，何 
秒あるいは何十秒もの間，闸而表示が休止してしまうことも稀ではありません. 
エディ タならば，それ程の高速性はなくとも十分ですが，頻繁に使出される文字 
列型変数においてはこのような低効率な作業ではとても間に合わないのです. 

まず思い浮かぶ方法としては，文字列変数の丧さを一律2 15 5文字なら2 5 5 
文字と定めておけば，手蛏に能率を上げることができますが，この方法は識別子 
のところでも述べたように，メモリの使用効率が著しく低下してしまい，たかだ 
かパソコンの記愤装置では，変数の登録数はいくらも増やせません.そこで，多 
くのパソコンでは，図（3)— i のように，文字列を実際に格納する領域 （文字列 
スタックエリア） を別に設け，さらに変数名と実際のデータとを結合（リンク） 

するための ポインタ を作って，問接的にデータを参照するという方式 " —間校 
表現法——が採則されている，というわけです.この方式ですと，変数名のあ 
とには2バイトのポインタを入れておけばよく，データの書き換えは，スタック 
の最後尾に更新 m の文字列データを付け加えてポインタをその最後/ぢを指し示す 
値に書き換えるだけで済んでしまいます.例えば,変数 B の内容を ▼ A ▼から ▼ A 
BCDE ▼ に書き換える場合には，図（3) — ii のようにボインタを書き換えれば 


50 





文字列処理の様子 
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よいのです.ホインタならばデ ー タ良は決まっていますし，文字列スタック上の 
古いデータ ▼ A ▼は 「ゴミ」 としてそのままにしておけばよいので，その都度デ 
一夕をずらしたりする必要はなくな 1 )，飛躍的に能率が向上します. 

実際のマシンでは，他のエリアとの兼ね合いから，卜 I (3 ) — iii のように，ド位 
のアドレスから上位のアドレスの方向へ，すなわち ハードウエア•スタックと 同 
じ方向に文字列データが塊められていきます.また，使用中のエリアと未使用エ 
リアとを分離するためのスタックポインタ（文字列スタックエリアのスタックポ 
インタ，すなわち String Stack Pointer ですから，以後 SSP と略します）が必 
要となり， FM -7 では，ワークレジスタ （41 : 4 2 ) が S S P の役因を果た 
• しています.変数エリア側でも，ポインタだけではスタック上で自分のデータが 
どこまで続くか解らないので，ポインタに加えて 文字列の長さ （文字数）を格納 
するレジスタが必要であり ，I 山 j 者を合わせた3バイトがス トリングディスクリプ 
夕 （以後， SD と略すこともある）と呼ばれます.以上まとめると，文字列型変 
数の参照は，货数サーチ • S D 読み込み • 文字列スタック参照という3段階を経 
て行われるということになリます. 

ところで前述したように，パソコンの記憶容量には限界があり，文字列スタッ 
クエリアとして確保できるバイト数などは，わずかなものにすぎません.文字列 
の書き換えが頻繁に行われるようなプログラムにおいては，次々と更新が行われ 
ていく結果，すぐにエリアが埋まってしまいますが，この中には不要となった「ゴ 
ミ」の文字列が相当数含まれておリます.この際放っておいた「ゴミ」を 一 拳に 
拂•除して片付けてやれば，再び，空きエリアを{窜保して使用可能な状態にするこ 

とができます.この「ゴミ掃除」のことを通常， ガベージコレクシヨン (garbage 
collection —ゴミ集め 一 ） と呼んでお 1 )，文字列操作に必要な岛度な技法 の一* つ 
なのです. 

このガベージコレクションには， ゴミの 選別と データの 移動，並びに S 口内の 
ポインタの書換 えといった处埋過程が必要であリ，ガベージコレクションが始ま 
るとそれだけで相当な時問を费してしまうことになリます.それでもなお，図 （ 2 ) 
の方式に比べると，格段に効率が良いのです. 

以上の説叫で， FM — 7をはじめれ種のマイコンのインタプリタ内で，どのよ 
うな形で文字列処理が彳 f われるかについての，大体のイメージを摑んでいただけ 
たと思います.なお， FM - 7ではガベージコレクションの効率を上げるために， 
1:記のシステムに加えて，さらに文字列スタックエリア中の各文字列がどの S D 
の指示対象となっているかを表現する， 逆向きのリンクポインタ があります.す 
なわち文字列スタックエリア内における有効な文字列は， 図 2 • 2 • 5のように， 
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S D と相互に対応づけられているのです（文字列スタックエリア外のものは別 
です）.そして ， S D に対応づけられていない文字列こそが，苻効でないデーター 
一すなわちゴミのデータであり，このとき，リンクポインタには S D の格納番地 
の ft わりに， ゴミの大きさ （バイト数〉が入るのです.文字列の大きさは〇〜2 
5 5文字の範叫 一 -1 6進数でいうと，$00-$ FF —— にあるので，リンク 
ポインタの上位バイトは$ 0 0となり，これが， ゴミであることの 識別子をも兼 
ねているのです.このリンクポインタの導入によって，ゴミのデータを有効なデ 
—夕から素速く M 分けることができるようになり，しかも，データの移®に伴う 
SD の書き換えもリンクポインタのアドレスを読むことによりスムーズに行うこと 
ができるようになっています.このような方式は，インデックス修飾命令を豊富 
に備えた6 8 0 9 C P U の能力を最太限に引き出すものであり，かつ，6 8 0 9 
ならではの特長であるといえます. 

以上のような構造の下に，文字列型変数の場合，変数エリアの本体データ部に 
は，3バイトのストリングディスクリプタが格納され，文字列本体は文字列スタ 
ックエリアその他に蓄えられるわけです.なお， 「 A $= ” ABCDE ” 」など 
のように単純な文字列定数の代入文の場合，インタフ°リタは新たな文字列を作ら 
ず，テキストエリア（プログラム）中に書かれている文字列のアドレスを SDK 
書き込むだけで済ませてしまいます（図2 • 2 • 6参照).前述したような，ガべ 
—ジ コレクションをはじめ，文字列スタックエリアに文字列の実体部分を格納す 
ることによって生じる負担を考えれば，インタフ°リタがこのような横着をする理 
由も納得できます. 

図2 • 2 • 6 インタプリタの横着 



A $ ピ A B C D E 
B $ = A $ 

C S — A $ 

D $ = B $ 




浓 h . のようなプログラムを'大:行すると, 
A B C $, D $のれ芡数の 
S D 中のボインタは，右図のように 
すべて " ABCDE ” が侪納されて 
いる先頭番地($ 0 7 9 8 ) を衍す. 


S 0 7 SM ) 聆地/テキストェり7 
I I 先頭番地 


0 7 . 9 F / 0 0 . 0 A / I 1 A / 2 4 
(リンク） 1 0 f f A $ 

E 6/22/11.12, 13,44. 15/22 / . 

- ff A B C D E ” 



S 


9 8 番地 




如文卞列の 
人きさ 
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最後に，実例として 

1 0^ A %= 10 : B !=12 : C #=14 : D $ = w A B C D E M 
といったプログラムを実行させた場合に，変数がどのように格納されていくかを 
見ることにします.格納されている数値の読み方は，符号部が圧縮されている点 
を除いて， FAC の数値の読み方とまったく同じです.ただし，標準 ROM モー 
ド （ DISK , R S — 2 3 2 C などを使用しない）の場合を想定したため，テキ 
ストエリア先頭番地は，$ 0 7 9 0となります.それでは， 図2 • 2 • 7 を御覧 
下さい. 


図2 • 2 • 7 実例による，変数の格納形式の様子 

アドレス 

()0 3 3 : 0 7 9 0 0 7 66 (テキストエリァ光 M 番地.愛数エリァ開始番地) 
3 B : 0 7 C F 0 7 C F ,(妃列エリア先頭番地，フリーエリァ開始番地） 


0 7 9 0 
7 9 4 

7 9 B 


: 0 7 B ‘10 0 0 A (テキストリンクポインク， h -番け[10]) 

: 41 2 5 E 6 F E 010 A 3 A /☆ T F E 0 1 T は 
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: 12 2 ] E F E 010 C 3 A 

(B ! 12 : ) 


1 バイトの定数表記 
であることを す 
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7 A 2 : 4 3 2 3 E 6 F E 010 E 3 A 

(C 14 : ) 

7 A 9 : I 12 \ E 6 2 2 4 l .12. 4 3 . J 4. f 5 2 2 0 0 

{ D $ = ” ABCDE ” NULUU ■の終り） 


7 B : 0 0 ()0 个 
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2 - 2-2 配列変数の格納形式 


配列は，同じ型のデータが並んだ一種の構造体ですから，数値の格納には若干 
の工夫が必要になリますが，単純変数の格納形式がよく理解できていれば，難し 
いことはありません. 図2 • 2 • 8 に配列変数の格納形式を示します. 

図2 • 2 • 8 配列変数の格納形式 

③の「リンク」が表すバイト数 


識別子 変数名部 リンク 次元 次数丨 次数2 次数 m データ 0 データ 1 …データ n 


以後の使用1 ⑤次数部 ⑥デーダ部 

バイト数 」I 

- - - リ -- — --- — - ■'' --■，- 

配列変数*^ t 標邡 配列愛数*本体 


それでは，以降に各部の説明をしていくことにします， 

まず，①の識別〒と②の変数各部については，単純変数とまったく同じです. 

③ のリンクの2バイトには，_分自身を含む，以後の使用バイト数が入ります. 
これは，変数サーチの際の，読み飛ばしのスピードを上げるためのものであり， 
変数名部（②）の次のアドレスに，このリンクの値を加えれば， 次の変数の先頭 
アドレス が計算される訳です. 

④ には，配列の 次元 （2 バイトで表現される）が格納されます.配列の次元と 
いうのは添字の個数であり，例えば，配列 A ( n ) の次元は1 ， A ( m , n ) で 
は2 ， A ( i ， j ， h ,1) では 4 となります. 

⑤ の次数部には， 各 次元に 対する 次数がそれぞれ格納されます.ここで次 
数とは， 添字の最大値プラス1 のことであり，例えば，配列の次元が1であった 
場合には配列の全要素数に一致する肌です.本書が，次数という紛らわしい表現 
をあえて使用するのは，配列の添字が〇から始まるために⑤には DIM 文で宣言 
する添字最大値そのものではなく，添字最大値プラス]が格納されるため， 添字 
最大値 という衷视が使爪できないことに依ります.以後，本書で次数という場合， 
配列の添字姑人•値プラス1のことを示しますので注意してドさい.なお，配列の 
全要素数は，次数部に格納された全次数の積で計算されます. 

⑥ のデータ部は，配列の全要素の集合体です.整数型であれば2バイトずつ， 
倍精度実数型の場合には8バイトずつ区切られて格納されていきますし，文字列 
型であるなら，3バイトの S D (ストリングディスクリブタ）が各要素の値となる 
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わけです.ここで注意しなければならないのは， 各要素が格納される 順序です. 
例えば ▼ D I MuA ( 3, 2 ) ▼で宣言された配列であれば， 

A ( 0, 0 )， A ( 1，0 )， A ( 2，0 )， A ( 3, 0 h 
A ( 0,1 )，A (1 ， 1 ),A ( 2 ， 1 )，A < 3， 1) 

の顺序で格納されるのであって，決して ， A (0，0 )， A (0，1) * . と 

いう順序にはな 1 )ません.この点は，我々の日常感觉と異なっている部分なので'， 
大いに気をつけて下さい.同じことは，⑤の次数部についてもいえます. 

なお，①〜⑤の部分を合わせて名標部，⑥のデータ部のことを本体と呼ぶこと 
にします. 

それでは，実際のフログラムで兄ることにします.次のようなプログラムを実 
行させて下さい. 


1 OuD I Mu A % (3,2) 

2 0 — FO R—I = 0^TO^3 

3 0 —^F 0 J = 0 l^T Ol -,2 

4 0 i — i—ii — i A ^ o (I， J ) — I ^ 2 o () "h J 

5 0 *_^NEXT 

6 OuN E X T 

この後 ， PR I NT _ HEX $ (VARPTR ( A % (0，0) > ) や MON / 
DO 0 3 B などの操作によって配列の位置を調べて，スクリーンにダンプさせて 
みると，配列荧数の構造を観察することができます.その様子をわかりやすく描 
き直したのが，次頁の 図 2 • 2 • 9です. 

ここまでの説明で，変数の構造について，およそのイメージを■んでいただけ 
たかと忍います.さて，いよいよ ， B A S I C 中問3語の作成と解読 • 実行に 
ついて説明することにします. 


57 




図 2 • 2 • 9 配列変数格納の実例 （2 の1 ) 


☆テキストエリア 
了ドレス り；クン 

0 7 9 0： 0 7 A ^ 








ク 

0 0 0 A 

1(し 
{) () I 4 

2 0 u 

0 01 E 

3 (し 
0 0 2 8 

4 0^ 
0 0 2 

5 0^ 
0 Q ：i C 

«i 0 .... 


8 4 2 0 412 5 2 8 F E 0 l _0 : i 2 C F E 0 J 0 2 2 9 0 0 

D I Mu k % ( 3 ， 2 ) NULL 

812 0 9 E 6 F E 01 _() 0 2 0 CD 2 0 F K 010 3 0 0 

FORu I — 0 ^ TO 一」 3 

2 0 812 0 4 AE 6 FE 010 0 2 0 CD 2 0 F E 010 2 0 0 

uFORu J = 0 ^ TO — 2 

2 0 2 0 112 5 2 8 4 9 2 C 4 A 2 9 E 6 4 9 D B F E 0 2 0 ] 0 0 D 9 4 A 0 0 

i __ t 

% ( I , J ) = I * U + J 

2 0 8 2 0 0 
, NEXT 

8 2 0 0 
NEXT 


7 —クエリ7, 


0 0 3 3 
0 0 3 5 
0 0 3 B 
0 0 3 D 


: () 

7 9 0 

(テキスト 



3 

3 : 

0 7 9() 

: 0 

7 E 0 

純変数ェりァ> 

フログラム ^ 

P 

フログラム 

\ 

3 

r > ! 

0 7 E D 

: 0 

7 E D 

列変数ェリァ) 

t 

Jf 愚* ，一 .. s “ 1 

Jk tr m 

/ ^ 

烏 U f 竣 

3 

B : 

0 7 F 9 

: 0 

7 E D 

{フリーエリアスタート） J 


1 

, 3 

D : 

0 81 A 


単純変数エリア ( 灾行後 ) 

0 7 E D : 4 0 4 9 8 3 0 0 0 0 0 n ………，…•.舉精度〒变玖" " 1， （ fift は I になつている} 

0 7 F 3 : 4 0 -I A 8 2-10 0 0 0 0. . " ▼ J ▼ ( " 3 ” ) 


☆ 屺列変数エリア（次: U 後) 



識 変 : ； - -,- A ^4 (0,0) A %( l t 0) A % (2,0 )…… A % (3, 2) 

データ部 

(AM¥) 


VARPTR ( A %(0, 0)> で尔される浓地 
[この例では，$ 0 H 〇 2酢地ヒなる] 
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図 2 • 2 • 9 配列変数格納の実例 （ 2の2 ) 


☆配列変数エリア(実行後〉 

V A R PT R ( ) f 今回の例に 

おける 


を基準とする 
相対アドレス 

■H 

# 

- 9 

- 8 

— I 

- 5 

一4 

一 2 

VARPTR ( A %(0,0)) 

て#さ#1る#^ 

+ 2 

+ 4 

+ t j 

+ 8 

+ I 0 

■ 

+ 2 0 

4-9 9 


[絶対アドレス」 

；$ 0 7 F 9 ]— 
；$ 0 7 FA ] — 
[ $ 0 7 F B ]— 

I $ 0 7 F D ]— 
[ $ 0 7 F E ] — 
；$ 0 8 0 0 ] — 
:$ 0 H 0 2 ]— 

；$ 0 8 0 4 ] — 
[$ 0 8 0 6 ]一 
:$ 0 8 0 « ] — 
[ $ 0 8 0 A 」 

[ $ 0 is () C ] — 

Hi 

[$0816]— 

[S () 818 ] ~^ 



+ 琴 1 


…識別子 


整数型変数で.愛数名: 

の及さが （ 0 +1 ) 八イト 


41. . 変数名 W A W 


001 F ………リンク以後の刪バイト数が 

i 31であることを示す 


0 2…，. . 次ノじ 

0 0 0 3- . 後の方の添字 ▼ 2,に対する次数]^次 

|数 

0 0 0 4……■■.前の方の添字▼:”に対する次数 ） 部 
00 0 0 . A % ( 0 , 0 ) の ■ 1 


名 

標 



010 0……… A% ( 1^ 

0 2 0 0 . A % (2, 

0 3 0 0…… … k % ( 3 , 
0 0 01……… A% ( 0 , 
01()]-. . A % ( 1， 


0 ) の侦 


A %( X , 





: : A %( X , 

0 2 0 2.…… A % ( 2 , 2 ) の仙： 

0 30 2 . A % ( 3 , 2 ) " S 





デ 


9 

部 


数 

本 


\¥ 
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2 — 3 


B A S I C メインルーチン 

B A S I C テキストの作成と解読 • 実行 


2-3-1 BASIC メインルーチンの構造 

B A S I C メインルーチンは，次の3つの部分に大きく分かれます. 

$ 

:プロンプト表示部 （$8 E 6 3 〜 $8 E 87) 

七テキスト作成部-テキスト作成ルーチン （$8 E 88 〜 $8 F 1 B ) 

L 解読.実行部-解読 • 実行ルーチン （$ C 6 3 D 〜$ C 6 EC ) 

このうち， プロンプト表示部は， コールド スタート，ホットスター ト などのメ 
インル-チン•エントリ であ リ，コ—ルドスタ— 卜時 •ホッ ト スター ト時. ブレ 

—クキー入力時 . E N D 文実行などプログラム実行終了時 • S T 0 P 文実行時 • 
エラー発生時など，すべてプロンプト表示部をとおしてメインルーチンに入りま 
す. コールド スタート時やプログラム終了時などでは， $8 E 72 番地がエント 
リ•ポイントとなり， 「 Ready 」 出力のみを行うのに対し，ホットスタートやフロ 
グラム中断時（ブレークやエラー発生:時ほか）では，$ 8 E 6 3番地がエントリ • 
ポイントとなり， 「 Ready 」 出力に先立って， 「 Break 」「 Abort 」「 Error」「Brea 
k ._ In , — , (行番号)」 「 Abort ! ― Jn , — , ( fj 番号)」 r Error , ― , In ( ― , (行番号)」のいずれ 

かが，中断時の状況に応じて衷示されます. 

テキスト作成 部は，プロンプト表示部と一つなが 1 )になっているのですが，一 
応，.つの独立したルーチンとして扱います.テキスト作成ルーチンは，独立し 
た形の$ C 2 8 8番地以下の 一行翻訳ルーチンを， サブルーチンの形で含んでお 
リますが，一行翻訳ルーチンが単独で使われるのは特殊な例を除いて極めて稀で 
すので，両者を別々のものとしては扱いません.なお，このテキスト作成ルーチ 
ンは，キーボード入力はもちろんのこと ， LOAD • ME RGE • CHA I N な 
どによる，アスキーセーブされたプログラムの読込みにも) n いられます. 

解読*実行部は，各コマンドの处理系へ分岐する部分をサブルーチンの形で内 
包していますが，このことは言い換えれば，各コマンドの処理系はすべて解読 • 
実行ルーチンのサブルーチンの一部となっている，ということです.従って， 
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各コマンド処理ル™チンの最後は，スタック内にネスティング用データを残して 

終了する F 0 R 〜 N E X T 文 • WH I LE-WE N D * G 0 S U B 文を除け 
ば， RTS (リターン）命令で終わっています（見かけ上は RTS 命令になって 
いないものであっても， RTS 命令を含む部分に分岐するなど，実質上の RTS 

命令を含んでいることになります.もちろん，エラーが発生した場合や，以下に 
述べるようなダイレクト A 行川のコマンドやプログラム灾行を停止させるコマン 
ドの処现ルーチンについてはこのかぎりではありません， 

メインルーチンの3つの部分の関係を N 示したのが，図2 • 3 • 1です.プロ 
ンブト表示部からは，必ず，そのままテキスト作成ル ー チンへ入ります.テキス 
卜作成ルーチンが一行翻訳によってテキストバッファまで作成する段階で，行の 
先頭に行番兮がなければ，ダイレクト実行文とみなして翻訳ののち解読 • 実行ル 
—チンに分岐し，行番号付きなら，テキスト中の格納位置を計算してその行を挿 
入したのち， W び，テキスト作成ルーチンの先頭に戻リます.解読•実行ルーチ 
ンは，各処现系へ分岐する基地となっていて，中問胃語を解読して分岐アドレス 
を算出したあとれ処理系ルーチンに制御を渡します.それぞれのコマンドの処理 
が終了すると，大抵の場は與び解読 • 実行ルーチンに炭ってきますが ， END 
文や STOP 文を実行したり， L I ST • SAVE • DELELE など主として 

髙接モードで) II いる——言い換えれば，ダイレクト実行用の——コマンドを実行 
した等の場合には，所定の手続きを終えたのち，プロンプト表示部に人ります. 

図 2 • 3 •丨 メインルーチンの 3 つの顔 


(スタート> 



E N D 文 ， S T 0 P 夂，フロ グラム終 r , LIST , SAVE , DELETE , etc . 
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2-3-2 メインルーチンにおける重要なワークェリアなど 


まず初めに，ワークエリア内の ポインタ （ D 9: DA ) と，このポインタを使 
用する 汎用 読 込みルーチン 「 D 2」 と 「 D 8」 および， 「 D 2 」「D 8」の後処理 
サブルーチン 「 C 7 6 0」（ 数字 • 区切文字検出ルーチン）は重要なもので，蒗〇 
章の ( 6 ) のこれらに関する説明を随時御参照下さい. 

ワークレジスタ （AF : B 0) は ， SP (スタックポインタ）の復帰用の値を 
保存しておく待避場所で，文字領域上限 （ 3 F : 4 0) マイナス1が初期値とし 
て入り，解読.実行ルーチンを通るごとに その時点での S P の 値に更新されてい 
きます.このレジスタによって，例えば，エラーが発注した場合でも， SP の値 
をエラー前の値に戻してエラー前の情報を得ることができるわけです. 

また，ワークレジスタ （ OOBF ) も重要なものです. （ BF > には现在扱っ 
ているファイルのファイル番号が格納されますが，普段は，$00が入っており， 
コンソールが 対象ファイルであることを示して います. LOAD , SAVE など 
や， PRINT # 文 ， I NPUT # 文など，特別なファイルをアクセスする際に 
該当ファイル用のファイルバッファの番号が格納されることになります.特に， 
テキスト作成ルーチン内で （ BF ) が$ 0 0以外の存効な誠を持っている場合は， 
キーボード入力によるテキスト作成ではなく， LOAD ， MERGE , CH A I 
N などによって外部ファイルからプログラムを読み込んで，テキストを作成中で 
ある，ということを表します.従って， （ BF )+0 で，かつ，行番号の付いてい 
ない行が入力された場合には 「Direct In File 」 エラーが出力されます. 

(33:34)， （35:36)， ( 3 B ： 3 0 , (3 D :3 E > は，前述 

したように，それぞれテキストエリア，単純変数エリア，配列変数エリア，フリ 
—エリアの各先頭番地を表すポインタです.ここで注意しておきたいのは， （3 
3 : 3 4) マイナス 1 番地， すなわち，テキストエリア直前の1バイトには常に 
$00の値を入れて開けておく必要がある，ということです.解読.炎:行ルーチ 
ンは，入口で，ステートメントの 区切文字 （▼ NULL ， または ▼:▼) のチェ 
ックをするため，この#地の内容が$ 0 0 (または $3 A ) でないと ， Syntax 
Error を発生させてしまい，いくら RUN させても， 一 向にブログラムが走りま 
せん. 

さらに， （ 4 7 : 4 8 ) と （ 4 D : 4 E )， および （ 4 9 : 4 A ) と （4 F 
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： 5 0 ) について触れておくことにします. 

( 4 7:4 8 ) には， 現在実行中の行番号 テキストエリアをいじっていたら…… 

が格納され，これもまた，解読•実行ルーチ なんと ， FM — 7が走り出した！？ 

ンで更新されます. （47:48) の値は 


エフー处现ルーチン内でエフ ー 発屯行番号 

として参照されるほか ， GO SUB 文など 
では，リターン行番号としてスタ ッ ク にフ。 
ッシュされます.なお， コマンド 侍ちやダ 
イレクト実行中では， （.17: 4 8) には 
$ FFFF (この値は行番号としては許さ 
れていないので混乱することはない）が格 
納され ， 「Illegal Directj のチェックなど 
に用いられます.（‘ 4 D :4 E ) は上のも 
のとペアになっていて， 現在実行中のテキ 
ストの番地 が格納されるポインタです.こ 




れも ， GO S UB 文などでスタックにプッ 


シュされます，これに関連して， （49: 4 A ) および （4 F : 50) では，そ 
れぞれ ， C 0 N T コマンドでプログラムを継続実行する際の 再スタート行番号， 
並びに， 再スタート用テキスト番地が 格納されます.なおこの （4 9 : 4 A ) は， 
テキスト作成中においては，これから書込みを行うべきテキスト番地の一時退避 
用として使われます. 


最後に， 対サブルーチン情報受渡用レジスタ （4 B :4 C ) について説明しま 
す.これは要するに， AccD の延長に相当するものです. 6 8 0 9 CPU には4 
本のポインタを除くとレジスタは AccD しか残リません.これ-•つではサブ ルー 
チンとの怙報のやリとりに不便なため，上記のレジスタをワークエリア 内 に設け 
たわけです.主に行番号関係のルーチンでよく使われますが， AccD や X レジスタ 
などの退避用としても多用され，きわめて汎用性の高いレジスタなのです. 


図2 • 3 • 2 対サブルーチン情報受渡用レジスタの使用例 
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2-3-3 メインルーチン • プロンプト表示部 


ア ^ 

レス 


機 

能 


$ 8 E 6 3, $ 8 E 7 2 (〜 $8 E 87) 

「 Ready 」 などのプロンプトを表示して，コマンド待ちの状態で 


あることを明示する. 

入力情報 X レジスタに 「 Breakj ， 「 Abort 」， エラーメッセージ （4 1種） 

のいずれかの先頭番地（実際には、先頭番地マイナス1，が入る； 
プリントアウトルーチン$ 9 BDB を使用するために）を持ってエ 
ントリ（ただし， $8 E 63 のみ.$ 8 E 7 2からエントリすると， 
入力情報は要らず， 「 Ready 」 のみ出力される. 

復帰情報|復帰せず .（0 0 BF ) をクリアしてテキスト作成部へ進む. 

WORK 」 (4 7： 4 8) =直前に実行中だった行番号が格納されている • 

(ダイレクトモードの場合， $ FFFF になる） 


( 0 0 B F ) =ファイル番号 

(0 5 AC ) =「プリンタ OINI 」 フラグ（第4章参照） 

( 0 5 BE ) =プリンタ未改行指示フラグ 
S U B I $ 9 B 5 0ーキヤリッジリターンおよびラインフィードを （ BF ) 

のファイルに出力（ここでは画面に出力） 

$ 9 B D B ——_プリントアウトルーチン ；（X +1 ) 番地からの文 

字列を NULL ($0 0) または引用符 （$22) 

が検出されるまで （ BF ) のファイルに連続出力 

$ B 6 0 ETlnu 行番号 ▼ 出カルーチン；出力される行番号は 

上記のワークレジスタ （ 4 7:4 8 ) 内のもの 
$ D 6 4 A ——►プリンタにキヤリッジリターンおよびラインフィ ー 

ド （ 改行）を出力するルーチン 


解 説 メインルーチン•プロンプト表^ K 部は，大きく分けて，ホットスタ 
ートブロック （$8 E 6 3〜$8 E 7 1) とコールドスタートブロック （$8 E 
72〜 $8 E 87) の2つに分かれます. 

前新は，まず，サブルーチン$ 9 B 5 0によって画而改行を行ったのち ， 「B re 
ak 」，「 Abort 」 もしくはエラーメッセージのいずれかを出力しますが，これは中 
断時の状況によって決まるものであり，エントリの際， X レジスタに情報を蓄え 
てくるものです.なお，この出力には$ 9 BDB のプリントアウトルーチン[ワ 
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ークレジスタ （ BF ) で示されるファイルに出力]を使用します.次に，中断時 
の実行モードを （47: 48) によって調べ， 7=48) =$ F F F F であ 
る場合，つまり，ダイレクトモ ー ドだった場合にはそのままコ ー ルドスタ ー トブ 
ロックへと進みますが，それ以外の場合には， （ 4 7:4 8 ) に入っている行番 
号をサブルーチン$ B 6 0 E で（例えば ， 「Break In 5120」 などという具 
合に）出力してからコ ー ル ド スタ ー トブロックへと進みます. 

後者のコールドスタートブロックは ， BAS 1 C 作動時には必ず.度は通らな 
ければならないブロックであり，簡単な初期設定と '' Ready 〃出力を行います. 
まず， ファイル番号レジスタ （ BF ) と プリンタ ON フラグ （0 5 AC ) をクリ 
ヤした後， フラグ （0 5 BE ) をテストします，御心:知の通り，プリンタという 
のは，改行が出力された時点で初めて，プリントべッファ中の蓄積された一行を 
まとめ印字するわけですから，例えば，直前に実行された LPR I NT 文が''，〃 

(コンマ） や、';〃（セミコロン） で 終わって いて 改行がなされて いない 場合， 
まだ印字されていない文字などがプリントバッファ内に残っていることもあリ得 
ます.そこで，この様に改行がなされていない場合には，未改行を指示するフラ 
グを立てておき，実行終了時（もしくは中断時）にこのフラグをチヱックして， 

未改行であった場合にはプリンタに改行を出力（この動作を行うのがサブルーチ 
ン $ D 6 4 A ) し，ブリントバッファ中の文字をはき出させてやればよいのです. 
このフラグが （0 5 BE ) であり，未改行の際には$ F F となっています. 

続いて， 「 Ready 」 プロンプト出力を行います.この動作にも， $9 BDB が 
用いられています，この後，$ 8 E 8 8から始まるテキスト作成ルーチンに制御 
を渡します， 

なお， 「 Break 」 メッセージ先頭（一 1) は $8 D 60 番地 [ 〜$ 8 D 6 8」 

「 Abort 」 " は$ D 6 AC 番地$ D 6 B 4] 

「 Ready 」 " は $ 8 D 5 6番地 [ 〜 $ 8 D 6 0 : 

となっています. 

また，41種類の エラー メッセージ群は， $ A 446~$ A 70 C 番地の エリ 
アに格納されています. 
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2 — 3 — 4 メインルーチン•テキスト作成部(テキスト作成ルーチン) 


アドレス] $8 E 88 〜 $8 F 1 B (ループ形成） 

機 能 1コンソールもしくは外部ファイルからプログラムを読み込んで，中 
間言語のテキストを作成する.また，ダイレクトコマンドが入力された場合には， 
ダイレクトモードであることを宣言して解読実行部（解読実行ルーチン）へ分岐 
する. 

入力情報] (0 0 BF ) ニプログラムの読込み先を示すファイル番号[これ 

が$ 0 0であればキーボード入力による入力を， 
それ以外 （$ 01〜$丨1 ) ならば外部ファイル 
からの読込みを表す丨. 

WORK I (13:14〉 =■ ■作成中の 行の長さ [バイト数]」プラス5の値が入 

ります. 


(0 0 BF ) 

( 0 0 C 0) 
( 33 : 34 ) 




フアイル番号レジスタ 
入カデータ終了フラグ 
テキストエリア先頭番地 


(3 5： 

3 6) 

=単純変数エリア 

" L テキスト終了 +1」 

(4 7: 

4 8) 

=実行中の行番号 


(4 9: 

4 A ) 

=C 0 行番号 （ 

ここでは一時退避用レジスタと 



して用いられている） 

(4 B ： 

4 C ) 

=対サブルーチン情報受渡し用レジスタ 

( 5 F ： 

6 0) 

=逆向ブロック転送 

•転送先下限アドレス 1 


(61： 

6 2) 

= " 

• 転送源下限 


(63： 

6 4) 

= // 

•転送先上限[出力情報] 


(69： 

6 A ) 

= // 

• 転送源上限 



糸1行翻訳ルーチン内では （6 9) 単独で用いられることもあり 
ます. 



(A 

2 


A 3) 

(A 

4 


A 5 ) 

(A 

6 


A 7 ) 

(D 

9 

_ 

■ 

DA ) 

(0 

3 

3 

8 

$ D 

9 

4 

A - 

$ D 

7 

F 

7 - 






1行消去 • 先頭アドレス 
1行消去 • 最終アドレス 
ピリオド行番号 
汎用読込みポインタ 


行消去ルーチン 

$9 FD 31用 


0 4 3 8)=現在編集中の行番号+テキストバッファ 
— AUTO 編集中の処理ルーチン… （1) で詳述 




行入カルーチン（フアイル番号レジスタで示され 
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るファイルから 1 行入力し，$ 0 4 3 D 〜$0 53 

C の行入カバッファに格納する）…第4章参照 
$□011 - > LOAD 等の後処理ルーチン…第4章参照 

$ C 2 8 8 |1行翻訳ルーチン [$C 2 8 8はテキスト書込用， 
$ C 2 8 C I また ， $C 2 8 C はダイレクト実行用の エントリ] 

(4) 


$ C 6 7 A 

$9162 
$CD C 6 


—解読実行ルーチン•ダイレクト実行用エントリ 

•••次節解読実行ルーチン参照 
行番号読込みルーチン（文字列今行番号定数)… （ 2 ) 


―> 


> 


プロテクトチェ ックルー チン 




(3) で詳述 


※プロテクト指定については第4章を御参照下さ 


$ 8 F 1 C — 行番号 サーチルーチン …… （5) で詳述 
$ 9 FD 3 41行消去 ルーチン （ DELETE 処理系 サブルーチ 

ン；実際には「彳行だけ j とは限らない）…解説參照 
$0 7 3 2 —テキストエリアのリンクポインタ修正ルーチン 

(部分修正用エントリ） （6) で詳述 

$ 8 F 4 B — >NEW コマンド 処理 ルーチンの一 部で，変数消去 や 

文字配列作業領域初期化を始め，様々な初期化を行 
う，… 3—〗 NEW コマンド処理ルーチン 参照 
※〇 )〜（6)については，この節で順を追って説明していきます. 
その他については，各部分の説明を御参照下さい. 

終 了条件1 テキスト作成ループ （$ 8 E 8 8 Z ^$ 8 F 1 B ) からの脱出が行わ 

れるのは，次の4つの場合に限ります. 

(1) 外部ファイルからの入力終了時0丨1に分岐 

(2) ダイレクトコマンド実行を受け入れた場合4$ C 6 7 A に 
分岐 

( 3) 入力時 • 翻訳時の エラー 発生 エラーコー ドを 持って $ 8 
D D 1へ 

(4 ) AU T 0処理がキャンセルされた場合功$ 8 E 7 2プロン 
プト表示部へ 
復帰情報 |各終了条件 

(1) では，特に明示的な情報はありません. 

(2) では，ポインタ （ D 9 : DA ) にテキストバッファ先頭番地 
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($ 0 3 3 C ) をセットして，解読実行ルーチンへの引き継ぎを行 
います. 

(3) では，エラーコードを B レジスタ中に格納して，エラー処理ル 
—チン （$ 8 DD 1 〜 $ 8 E 6 2 ) への引き継ぎを行います. 

(4) では，現在の編集中行番号 （0 3 3 A : 0 3 3 B ) が復帰情 
報に当り，この値は AU TO 編集処理ルーチンで，ピリオド行番号 
に代入されます. 

~m ^説 I 前述した様に，$ 8 E 8 8 〜 $ 8 F 1 B のテキスト作成部は，全て 
の BA S I C プログラム.中間言語テキストを作成するルーチンであり ， FM — 

7 上の他のど の 場所でもテキストの作成は行われません.アスキーセーブされた 
プログラムに対するし 〇 A D や ME RG E ， あるいは C H A I N や R U N “ファ 
イルディスクリプタ”などと いった コマンドの 処理も， 本体は，テキスト作成ル 
—チンそのもの であり，各々のエントリ番地付近にある処理系では単に前処理 • 
後処理が行われているに過ぎません， 

さて，テキスト作成ルーチンは，15 0バイトにも満たないバイト数のもので 
すが，その中に様々な範疇のサブル ー チン，それも癖のあるサブルーチンを含ん 
でおり，とりわけ，1行翻訳ルーチン （$ C 2 8 8 ~ $ C 5 E 1番地）は，8 0 
0バイトを優に越える巨大ルーチンであり，把握するには労力を要します. 

それでは， 図2 • 3 • 3 を御览ドさい.この図は，テキスト作成ルーチンの構 
成を表すブロック図です. 

この中で使用している各サブル ー チンについては，順を追って説明していきま 
す.ただ， M 中で特に注意を要する箇所がいくつかありますので，これらについ 
て以ドに述べます.まず，$ 8 E 8 E でキャリーフラグによる条件分岐を行って 
いますが，これは1行入カルーチン （$ D 7 F 7) においてキーボード入力中に 
ブレーク.キーか control — C ， control — X の人力があった場合（この時キャリー 
フラグがセットされる），その行の入力をキャンセルして，もう 一度 初めから人力 
のやリ蓝しを彳 r うためのものです.また，外部ファイルからの1行入力実行中に 
人力すべきデータが終わってしまった場介には，ワークエリアのフラグ （ C 0) 

を立てて戻ってきますので，このフラグのチヱックを行って$00でなければ， 
LOAD などのプログラム読込みの後処理ルーチン （$ D 0 11) へ分岐します. 

$8 EDA で， （13:14) に入力行の長さ+ 5の値を格納するとあります 
が，この「+5」の意味はおわかりでしょうか.テキストエリアに格納される際， 

テキスト バッファの 一行のステートメントに加え先頭にリンクポインタ （ 2 八イ 
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図 2 


* 


テキスト作成ルーチンのブロック図 


S 8 E 88 


行入力を 
キャンセル 
| Break 4 -j 


$8 E 8 E 
. 番地 


MJTO 処理 （$ D 94 A ) 


行入カルーチン ($ D 7 F 7) 


■ 

~ ri ^ 


V キヤリークリ」 

キヤ リーセツト 入カ データ 終了フラグ （ co ) テス 


AUTO フラグをテスト：$00ならそのままリターン 
AUTO 行番号発生*画面出力 * その他判断など 


,行入力を行って S 8 EB 5 へ… 


( SF ) のフアイルから1行入力：行入カバッファ 


Break キー、 corstro 卜 C * X が押されていた時は、キヤ 
リーフラグをセットして戻る/ 


( C 0) 參 D 



LOAD 後処理部 
($ D 0 N ) に分岐 



$02ルーチンによ 


文字読み込む（数字—キヤリ_セツ 


ダイレクト処理中であることを宣言〔（47 : 48> に $ FFRF を代入する’ 


/キヤリークリヤ _ 

〔数字でない]なら 」ファイル番号 ( BF ) チェック 


キヤリ— ^セット 
(数字）なら/ 


Direct In File 
エラ^!生 （$8 DCF ) 


1行翻訳 
($ C 28 C ) 

1 

! 解読実行部 
($ C 67 A ) に 


分岐 


$8 EAF 番地- 


行番号読込み<$9162) 


ブロテクトチェック （$ CDC 6) 


$8 EB 5 番地 


バッファから数字列を読み込み1 
2バイトの行番号定数に変換し 
て （4 B : 4 C ) に格納 


Syntax 

Error// 


$8 EC 3 番地 


番地一 


$8 EE 2# 地 


キヤリーセット 


編集中のものと同じ 
行番号を持つ行が無 
ければ T 消去」をスキ 
ッブ 

$8 EEF 番地- 


( S 033 C )^$00 

空文（リターンキー 
のみが押された時） 
なら、 

I 行消去のみ行う 


$8 R )6 〜 8 F 0 D 


: 4 C ) の行番号——（33』 


空白'^ r の取扱い 


1行翻訳 （$ C 288); 結果はテ」 


(13 : 14) に「入力行の長さ- 


行番号一^ (4 B : 4 C ) と 


行番号サーチ （$8 F 1 C ) 


X レジスタ〔編集中のアドレ 
ス〕を （49 : 4 A ) に退避 


(33 A : 33 B ) 


、バッファ （ 33 C 〜 43 B ) に格納される 


を格納 


( 4 B ； 4 C ) に格納された行番号に等しい行番号をテ 
キストから探し当て、そのアドレスを X レジスタお 
よび （69 : 6 A ) に.グ見つからなければキヤリーセット 



ーク 


X レジスタ の 値一^ 


1行消去 （59 FD 3) 




；( X )の値〔リンクの値〕— （ A 4 : A 5) 〔消 


同時に （ A 2 : A 3) —(69 : 6/\)に格納 




テキストバッファの1文字目 （$033 C ) の読込み 


フロック転送 
ソ_ス上限 


关$00 


$8 E 44〜8 F 02 


(13 :14 > で示される値だけ 
後方のテキストをずらす 


同時に、編集中の行番号— 
ビリオド行番号 （ A 6 : A 7) 


テキスト終了 （35 : 36) -ブ〇ック転送ソース下限 (61 : 62) 
(61 ： 62) + 03： 141 — ブロック転送■転送先下限 (5 F : 6 0 ) 
として 、 [T 逆向ブロック転送 （ S 8 D 93) 「 


として、[|_逆向フロック転送 （ S 8 DS 3 

を行う.最後，転送先上限一 (63: 64>に代入 


テキストバッファの i 行を、テキストエリアの、隙間を空けた場所に挿入する 


$8 FI 4 番地一 


変数消去などの初期化 ($8 F 4 B 番地： NEW ルーチンの途中から…） 


(49； 4 A ) から X レジスタに、退避させておいた「編集中のアドレス j を読み出す 


X レジスタが示す番地以降のテキストェリアのリンクポインタを修正する （$ C 732) 




— $8 F 1 B 番地 


(振出に戻る} 
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卜）と行番号 （2 バイト）；末毘に行の終りの区切文字 NU LL ($ 0 0) の1バ 
イトが付加され，計5バイトだけ本文よりも長くなります.この5バイト分が「 

+ 5」に当るわけです.最後に，$ 8 E E C で呼び出している 1行消去ルーチン 
($9 FD 3);$8 F 00 で P 乎び出している逆向ブロック転送 （$ 8 D 9 3) ;$ 
8 F 0 6〜 8 F 0 D のテキスト插入部の3つのブロック転送について，図示しな 
がら関連づけて説明します.これら3つのブロック転送は，組にして使うことを 
頭に入れて設計されており，その様子は図 2 • 3 • 4 に示す通りです. 

( 1 ) AUTO 編集中の処理ルーチン 


—アドレス」$ D 9 4 A ($ D 9 4 4〜$ D 9 7 F ) 

W \ AU TO 編集中フラグ （0 0 9 D ) をチェックし，クリア (AUT 
0編集がかかっていない）の場合はそのままリターン，セットされてる場^'は、 
行信号の自動発生などの AUTO 編集の1ステップを実行する. 

入力情報 I ( 0 0 9 D ) = AUTO 編集実行中フラグ 

(9 E ： 9 F )= 現在編集中の AUTO 行番号 
(A 0 : A 1 )=A UT 0行番号の増分（刻み幅） 

※これら3つの情報は ， AUT 0コマンド処理ルーチンで設定されます. 

復帰情報 I (0 0 9 D ) =次の A UTO 編集を続けるか否かの情報 

( 9 E ： 9ド）=次の AUTO 編行番号 
( 4 B ： 4 C ) =自動発生させた行番号の値 

WO RK I 上記の他 ， A U TO 編集がキャンセルされなかった場合には ， （D 9 

: D A (に行入カバッファ先頭番地「$ 0 4 3 Dj をセットしてリ 
ターンします. 

sub ] $ D 9 2 F — セットフイールドルーチン[第4章参照] 

$ 8 F 1 C — 行番号サーチ （ 4 B : 4 C ) と同 一 の行番号が見つか 

った場合にはキャリーフラグをクリア] 

$ 9 ECC ~> (4 B : 4 C ) に入っている行番号の値を画面に出力 

する[行番号定数表示ルーチン$ B 615を使用] 

$9022 — ~>空白 （▼ —▼) を画面に出力 「（ BF ) ファイルが— 

対象で，ここは画面 j 

$ D 8 0 A -^キーボ—ドからの1行入力 Break キー， cont — C 

1_)(でキヤリ ー セット」 
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( A 2 : A 3) 
DELETE 
範囲先頭 



(X + ) 



__転送限上限 

(69 : 6 A ) * . • • • •_ (69 : 6 A )^ 

厂 -〆 

この代入は / 

S 8 EF 8 で実行 / 







し DA , 

U + 



STA , 

X + 



CMPX 

(63 : 64) 



BNE 

氺 一6 


し 





という ルー プ 




—— 


^― - 






テキストの終り 


***** 






-(5 F : 60) 


#* • # 4 ****# 


•"►最終的な （35:36) として代入 
〔$ SF 0 E 番地で行われる〕 


(一 



: 14) 二 (5 F : 60) — 
奉云送源下限 


LDA t —X 
STA , —U 
CMPX (69 : 6 A ) 
BNE * —6 


( A 4 : A 5) 
DELETE 
範囲最終 



(U + ) 



新 (35 : 36) 



LDA , U + 
STA f X + 


の繰返し 


(61 : 62) - 
耘送先下限 


(61 : 62) + (13 


3) 1行揷入 （$8 F 03 〜 8 F 0 D ) 

テキストバッファ 


$0338- 


33 A 


33 C 


テキストエリア 



1行の 
ステート| 



この足し算は 
$8 EFC で行わ 
れる 


? 


逆向ブロック転送 t 
おける X の最終値 


( X +) 


一 （63 : 64) 


$0338十 
行の長さ+ 5 


行の長さ+5 


(63 : 64) 一〜 


行の長さ+ 5 


といラ J レ^-フ 




^ M 中， { 0 3 3 « : 0 3 3 9)(二妃區されている S () { {) 4は， リンクホイン 
夕の領域を確保するためのダミーコードです - 


図2 • 3 • 4 テキスト作成における、3つのブロック転送 


II 行消去ルーチン （ S 9 FD 3) 


(2) 逆方向ブロック転送 ( $8093) 



テキスト 


後方のテキス 


卜 






後方の 

テキス 
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_ mj AUTO 編集のやり方ですが ， A OTO コマンド処理系 （$ 9 FE 

7 〜 A 01 9) では， （9 D )，（9 E :9 F )，（ A 0: A 1) の設定を行ってテキス 
卜作成ルーチンに分岐するだけであり， AUTO 編集の本体も，実はテキスト作‘ 
成ルーチンそのものです.ただ，行番号の自動発生等の付加処理を行うために， 
このルー チンがあるわけです [この 様子をブロック図にしたのが図2 • 3 • 5 で 

す. 図 2 • 3 • 3と比較して御覧下さい] . AUTO 編集がかかっている場合，こ 
のルーチンのリターンアドレスは$ 8 EB 5となりますが，次のような キャンセ 
ル 要因が成立した場合には，フラグ （9 D ) をクリャしてプロンプト表示部 （$8 
E 7 2 ) への脱出がなされ， ▼ Ready T が表示されます. 

(i ) 編集中の行番号と同一の行番号がテキスト中に既に存在している場合， 

(ii ) 1行入力時にブレークキー， control — C または control — X が押された場合. 

( iii ) 空文（リターンキーのみが押された状態）の入力が行われた場合. 

また，次の行番号を計算中に，その値が6 3 9 9 9を越えた場合，現在の編集 
はそのまま続行されますが，フラグ （9 D ) をクリアして， 次回の AUTO 編集 
をキャンセルします. - 


図2 • 3 • 5 AUTO 編集の様子 


8 E 8 8 


$ SEB 5 


S 3 E 7 2 


フ□ンフト峩示部 


コー/レ （ JSR ) 


缚- 


(9 D ) KKKj ：6 fUS 


ダイレクト実行 


H 备号 i 范み込み （$9162) 


7ロテクトチ ： t / ク 


SD 974 


50978 


フラグ （90) をタリア： AUT 0 W 集キヤンセル 


$09 4 A 



AUT 0 行番号ね出し： x レジスター（祀：妒） 

1行入カ ルー チン BD 7 F 7) 


ALH 0 行银号 -.(4 B : 40} に格納 


"ントフイ™ル ドけ[)9び> 

ダイレクトコマンドの 選 リ分け 


行番号サーチ （$8 FIC > | 


T 


(09 : DA )(：$43 D 
(行入カバッフ「先頭〕 
をセット 


{犯の行番号 ，（33 A 330) 


フラク (9 D ) をテス 


キャリークリヤ 


行#号表示（沾 ECC -4 B 615) 


空白.ノ）の表示 C $ 9 C 22 ) 


行入カルーチン （SSDOA: 


キヤリーセツ 


入カバッフ■，，の1文字目をテスト 


{ 1文字目）=$00〔刚 LL.〕 


次の行#号計霖 (9 E -9 F )- (9 E ：9 F ) + ( AOA 1) 


%行畨号が 63999 ViS えた場合 


闯一行番号が既にテキストに存在 






Bre ^ k , con プ01 OX が押？れた場含 


空文：リターンキーのみか押された 


( 90 ) をクリノ 次回の AUT0 _ 集キャンセル 
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(2) 行番号読込みルーチン $9162 


[_ アドレス]$9162 〜 $9194 

Si ] ポインタ （ D 9 : DA ) が指すバッファ位置からの文字列を行番号に 
変換する[文字列が数字で始まらないときには値として0を返す] • 

レジスタ丨 A , B， X 

入力情報| (D 9 : DA ) に，読み込みの対象となるバッファの位置アドレスを， 

A レジスタに，変換を行おうとする文字列の最初の一文字を，キヤ 
リーフラグには A レジスタの文字（数値の場合）をセットしておく. 


※この ルー チンは， コール 直前に， SD2 ルーチンもしくは $D8 ルーチンに 
よって， A レジスタおよびキヤリーフラクを あらかじめ設定してから 呼出す 


とを前提としているので注意を要する. 



(D 9 : DA ) 

A レジクタ 


変換した数字列の次の位置 
次の文字 


キャリーフラグ= A レジスタの文字が数値な 

らばセツトされる. 


SD8 ルーチンによ 

つて， 空白 スキッフ 

が行われているので 
要注意 


(4 B : 40 =作成された行番号の値 

WORK ] 上記のワークエリアの他には， 

(0011 ) が作業用レジスタとして用いられる. 

SUB ] $ D 8-^汎用読込みルーチン 

※このルーチンには明示的な RTS 命令はなく， JMP SD8 で呼び出し 


元にリターンしている. 

終了条件1読み込んだ文字が数字でなかった場合（空白 ▼ ^ ▼の場合も含む）， 

$ D 8ルーチンを通ってリタ™■ンします. 

また， （4 巳： 4 C ) に蓄えられている値が6 4 0 0 (=$ 1 9 0 0 ) 
以上で，なおかつ数字が続いている場合には， （4 B : 4 C ) * I 0 
を計算すると，行番号として許容される値6 3 9 9 9を起えてしま 
いますので，この時点で ， Syntax Error ($ 9 0 8 9 を通り拔けて 
$ 9 2 A 〇番地）に分岐します. 


解_説丨 このルーチンは，10倍演算のやり方やフラグの立て方などに巧妙 
なテクニックが用いられており，参考になる部分も多いかと思いますので，ソー 
スリストを載せておきます.ブログラム設計に御役や:てドさい. 
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初期値の代入 

数字が続いていれば，処理続行 
R 丁 S の代わりも兼ねる 
言売み込んだアスキ ー コ ー ドから 
10進数】桁の値を生成する 

格納されている値を読み出す 

( 4 B ： 4 C ) の値が6 4 0 0 0 

以上であればエラー 

AccD = (4 B : 4 C ) * 5 

1 AccD = 

ン (4 B ： 4 C ) 


:，どうして $D 2ルーチンを用 
しいます.この点に関しては， ® 
0:な⑹でも述べましたように，$ D 2ルーチンは空白 （ ▼二 ▼) のスキップを行い 
ますから，ここで，もし$ D 2ルーチンを用いて文字の読込みを行うと，例えば， 


AccD = AccD 氺2 

アスキーコードから生成した値 
を AccD に加え合わせる 

値の格納 

ポインタ （D 9 : D A ) の 
インクリメント 

フラグの立て方に注目 
[数字の時キヤリーセット] 
※空白スキップ不要のため， 

$ D 2ルーチンは使えない 


番地 


叩 T3 


オペランド 


9 18 3 


A S し巳 
R 0 L A 
A 5 LB 
RO L A 
A D D D 
A S し B 
R O し A 


STD 

L D X 


S T X 
し D A 
CMP A 
B C C 


BRA 


9 

1 

6 

2 

L 

D 

X 

ふ- 

$ 0 0 

0 0 





S 

T 

X 

(4 B 

: 4 C ) 

9 

1 

6 

7 

巳 

C 

S 

$ 

91 

6 

巳 





J 

M 

P 

$ 

D 8 


9 

1 

6 

B 

S 

U 

B A 


$30 






S 

T 

A 

$ 

11 







L D D 

(4 B 

： 40 





C 

M 

PA 


$ 1 

8 
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4 B ： 4 C ) 


A D D 巳 $ 11 

ADC A #$00 


) 

\ 


(4 B : 40 

(D 9 ： D A ) 


し E A X $01 ,X 


D 9 ： D A 


$ 3 A 


$9167 


SUBA #$30 
SUBA # $ D 0 


$9167 


j 


锊さんの中には， $918 3 番地以下の処理 ( 


ないのか不思議に思 




Jj もいら 


ゃると 


I 




木 
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「1 A ...」 も行番号「 10 2」として扱われてしまい，このようなことを 
避けるためにも$918 3番地以下の似たような処理ブログラムを必要とするわ 
けです. 

なお ， S 910 4番地には斑接エラー発生ブログラムは書かれておらず，$ 9 
0 8 9への分岐命令が書かれています.そしてその$9 0 89にも，$92 A 0 
への分岐命令が書かれており，結局，$ 9 2 A 0でエラーを発生させる [LDB 
#$02 ; J M P $ 8 DD 1 (エラー 処理 ルー チン： B レジスタにエラー コー 
ドを入れてジャンプすればよい）の2つの命令で構成される]ことになります. 
この$ 9 2 A 0へのジャンブ命令は 「Syntax Error 」 発生のエントリポイント 
ですので，よく理解しておいて下さい.また，上のような，分岐命令を小刻みに 
継いでいく方法は，6 8系 C P U を使ったコンビュータではよく見受けられます. 


( 3 ) プロテクトチ エツクルー チン 


アドレス」 $CDC 6 〜 $ C DC E (わずか 5 バイト） 

W \ プログラムプロテクトフラグ （0 0 D 1 ) をチェックして，$00以 
外の場合，即ち，プログラムに保護属性が指定してあった場合に， 「Protected 
Program 」 エラーを発生させる. 

[レジスタ I エラーが出ない場合は全く使用しない. 

入力情 ( 0 0 D 1 ) に，プログラム保護属性の情報 

復帰情報 エラー発生の際， B レジスタに 「Protected Program 」 エラーに 対 

する エラーコード 6 2 ($3 E ) が入り， エラー 処理ルーチン （$ 

8 D D 1 ) に分岐 

WORK | ( 0 0 D 1 )= プログラムプロテクトフラグ 

[ SUB ] プログラムプロテクトフラグ （ D 1 ) がセットされるのは，インタ 
ブリタ内では， LOAD 前処理ルーチン（もちろん， CHAIN などの処理も含 
まれます）だけに限られます.プログラムの保護厲性を指定するのは ， SAVE 
コマンドにおいて 「P オプション」ですが，これが指定されると，その旨の情報 
がファイルに書き込まれます. LOAD 前処理ルーチンで，ファイルからその旨 
の情報を拾い上げると，直ちにこの （ D 1) フラグがセットされ，以後このプロ 
グラムに対する ， L I ST コマンド ♦ ED I T コマンドの使用や，行の削除 . f ® 
正処理はできなくなります（ただし， AUTO コマンドによる付加と DELET 
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E コマンドによる抹消の2つは行えます.この2つのコマンド処理系ではプロテ 
クトチヱックを行っておりません）.このような場合にプロテクトを解除するには， 
( D 1 ) フラグを直接クリアする以外ありません. 

保護属性や 「P オプション」についての詳細は，第 4 章を御参照下さい. 


(4) 1行翻訳ルーチン——中間言語作成工場 


ァ 

K レス 

機 

能 


$ 0 2 8 8 


$ C 5 E 1 


行入カバッファに蓄えられているアスキーコードで書かれたプログ 


ラムの一 行を，中間言語 プログラムに 翻訳して テキスト バッファ （$033 C 

$ 0 4 3巳）に格納する. 


レジスタ| すべて使用す る.ただし，0卩は$0 0を保持，5卩（スタックポ 

インタ）はリターン時に元の値に戻る. 

入 力情報1 $ C 2 8 8からエントリの場合は， 

X レジスタに，バッファの先頭アドレス ー1 の値 
$ C 28 C からエントリの場合は， 

( D 9 : DA ) に，バッファの先頭アドレスの値 



(00 B F ) に，入カバッファに読み込んだプログラムの入カファ 


イル番号 

をキープしておく，これは，プログラムの地の文で， $80—$ F 
F の範囲のコードがきた場合，エラーを出すかどうか判定するため 
に用いられる[外部ファイルからの入力であればそのコードを無視 
して読込みをそのまま続行するのに対し，キーボード入力であれば 
「違法な文字コード j として 「Syntax Error 」 を発生させる]. 

復帰情報 1 (D 9 ： D A )1 _テキストバッファの先頭アドレス ー 1の値 

X レジスタ j (= $ 0 3 3 B ) 

U レジスタ =テキストバッファ上に作成した中間言語プログラ 

ムの最終番地+ 3 

D レジスタ =作成したプログラム1行の長さ+ 5 

(= U レジスタの値一$ 0 3 3 A ) 

WORKI (D 9 : D A ) =バッファ読込みポインタ 

( 0 0 5 F ) = 2バイト中間コード ▼ F F X X ▼ 指定フラグ 
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( 0 0 6 0 ) = 中間コード作成用レジスタ 

および，文字列 （ “ 定数，’注釈）処理の区切り 
( 0 0 6 1 ) =変 数名 綴り内であることを指示するフラグ 

(綴り内——$ F F ;それ以外—— $00) 

( 0 0 6 2 ) = DATA 文中であることを指示するフラグ 

(DAT A 文中——$ 01;外—— $00) 

( 0 0 B F ) =ファイルバッファ番号（プログラムの入力先を指 

示；キーボード入力——$00;外部ファイルー 

—$1丨） [第4章参照] 

(E 7 : E 8) = L I S T , L L I S 丁行番号処理用キー•アドレ 

ス格納レジスタ 

( 01 E F 〜 0 216 )= 予納語テーブル • ジャンプ テーブル索引 
(0 3 3 C 〜〇 4 3 B ) = テキスト バッファ （作成された中間言語プ 

ログラムの一行が格納される） 

( 0 0 7 4 — 0 0 7 C )= FAC 1 

(0 0 17) =F AC 1中の 数値の 型 （2, 3, 4，8〉 

( 0 0 6 9 ) =左右カッコのネスティングカウンタ 

(4 B ： 4 C ) =行番号読込みルーチン （$9 16 2) から結果を 

引き継ぐレジスタ 



終了条件 


( 0 2 7 5 — 0 2 7 7 )] _ FB A S I C 拡張用分岐命’ 

( 0 2 9 F —0 2 A I )] [令を書くためのレジスタ」 

$ D 8 ルーチン[数字のとき，キャリーを乜ットして戻る] 

$94 FD — ~>アルファべットチ：!：ック [ AccA の内容判定] 

$ 9 5 0 F 一一>数字チェック [ 〃 ] 

嵌2つとも，条件成立の場合，キャリーをクリアして戻る. 

$ 8 5 9 7 — ~>ブロック転送 [ AccB のバイト数だけ転送] 

$ B 5 0 B 一一 —文字列数値 • 変換ルーチン....第5章参照 
$9162 ―> 行番号読込ルーチン.... （2) で既述 

行入カバッファから読み込んだ文字が NULL ($00) であった 
場合，エンデイングブロック[解説參照]を通ってリターンします • 


解 説丨行人カバッファからの読込みポインタとしては，ほとんどすべて， 

X レジスタが用いられ ， （D 9 : DA ) を用いた読み込みを行うのは2ヶ所だけで 
す.エントリの遠い [$ C 2 8 8と$ C 2 8 C の遠い]は，この X レジスタに入 
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るべき値の与え方の違いであり ， $C 2 8 8の場合は， X レジスタに読み込み開 
始番地マイナス1の値を入れてエントリするのに対し，$ C 2 8 C の場合は ， （D 
9 : DA ) に読み込み開始先頭番地そのものを与えます.このとき与えるアドレ 
スは，何も行入カバッファの先頭番地に限られるわけではなく，未翻訳のプログ 
ラムが入っている場所の先頭番地であれば，どこでもよいわけです.ユーザのエ 
夫によって様々な応用がきくルーチンです. 

さて，このルーチンのスターティングブロックは:$ C 2 9 3で C 2 9 3で，読 
込みポインタ X の読み出しのあと，拡張フック$ 0 2 7 5をコールし， テキスト 
バッファ先頭番地 $ 0 3 3 C を U レジスタの 初期値として与えます.以上のよう 
に， U レジスタはこのルーチンのほぼ全域に渡って 書込みポインタと して用いら 
れています. 

次の$ C 2 9 4番地から$ C 5 E 1までが巨大なループを構成しており（もち 
ろん，間に小ルーチンを含んではいますが).中間コード•変数綴り.各種定数な 
どを次々に作成しては格納していきます.このループを一度に説明するのは大変 
ですので，2 0のブロックに分割して述べていこうと思います. 


〔1〕初期設定部 


アドレス | $0 2 9 4 〜 $ C 2 9 B (8 バィト） 

機 能|フラグ （6 1)(6 2) および，レジスタ （E 7 : E 8) の4バイト 
をクリァする. 

~m W \ このブロックは，最初と，地の文（即ち，注釈文字列や文字列定数 
の外部）で▼ : ▼ (コロン）を検出した場合のみ通過します.1つの文が始まる 
時，上のフラグ.レジスタを初期状態にする働きを持つブロックです. 

フラグ （61) は，現在，読込みポインタ X の読み出している文字列が，変数 
名 綴りを構成していることを指示する[このとき $ FF が入る]ものです.また， 
フラグ （6 2) は，現在読み出している文字列が ， DAT A 文中に 記述される 一 
連のデータを構成していることを表します. 

レジスタ （E 7 : E 8 ) については， [2 0] で詳述します. 
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〔2〕読込み•分析部 


アドレス」 $ C 2 9 C 〜 $ C 2 C 7 (4 4 バイト） 

機 能 | 読込みボインタ X の指す位置から 1 文字をとり出して A レジスタに 
格納し，その内容や現在のフラグの状態に応じて，どの処理ブロックへ分岐すれ 
ばよいかを判定する.このとき，ポインタ X のインクリメントも同時に行う • 

WO R K 」 （6 0 )= 中間コード作成用レジスタ 

(61)= 変数名綴り内であることを表すフラグ 
(6 2 ) = D A TE 文中であることを表すフラグ 
|[S U B | $0 4 9 0——> アルファベットテスト•サブルーチン 

(アルフ ァベットチ x ックル ー チン$94 FD をサブル ー チンと 
して使用している） 

$ 9 5 0 F — ~> 数字チェックルーチン 

※これら 3 つのサブルーチンについては， [14] アルフアベットテスト•サブ 
ルーチンの項でまとめて説明しますので，随時そちらを御参照下さい， 

l [m W ] まず， 「LDA , X +」 で読み込みを行い， NULL ($00: 入 
力行の終りを表す）であれば， [3] のエンティング•ブロックへと分岐します. 

NULL でない場合， フラグ （61) を見て変数名綴り内であるかどうかを判 
定し，変数名綴り内であれば， 予約語検索を行わずに 格納のみを行います.ただ 
し， $ C 4 9 0や$ 9 5 0 F などによって A レジスタの コードが アルファベット 
でも数字でもない場合(変数名として用いることができない文字コードの場合)， 
フラグ（(_;1)をクリアして変数名綴り外の処理（予約語検索など）を行いま 
す. 

次に， A レジスタのコードが 空白 ▼ — ▼ ($2 0) かどうかを調べ，空白であ 
ればやはり格納のみを行います.空白は，変数名紱リや予約語紱リの間に誤って 
割り込まない限り，いくつあってもかまわないので配置を工夫して下さい. 

以上に該当しない場合， A レジスタのコードを （6 0) に格納しておきます. 

四番目に， A レジスタのコードが引用符 ▼ ($ 2 2 ) かどうかをチヱック 
します.もし，引用符であれば， [6] の中の $C 2 FC にェントリします. 

最後に ， DAT A 文中フラグ （6 2) をテストし， DATA 文中であれば，や 
はり格納のみを行います.この際， コロン ▼: ▼であった場合には，格納後，前 
述の D ] 初期設定 部に戻り，フラグをクリアします. 

今まで述べたうちのいずれでもなかった場合，および，変数名綴りフラグが改 
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めてクリヤされた場合には， [4] 入カチ x ツク部へ 進みます， 

なお，中間コード•数値定数以外の文字コードの大部分は，このブロックの 「S 
T A ， U +」によって格納されます* 


〔 3〕エンディング•ブロック 

アドレス ]$C 2 C 8 〜 $C 2 D 6 (15 バィト〉 

_ 機 能1書込みポインタ U が指している位置から2バイトをクリアした後， 

D レジスタに「行の長さプラス 5 j の値（すなわち「▼ U レジスタの値▼マイナ 

ス$ 0 3 3 A 」 なる値）を計算し ， (D 9 : D A ) に「テキストバッファ先頭番地 
マイナス1」の値を格納して呼び出し元へリターン （ RTS ) する. 

WOR K | (D 9 : D A ) ——テキストバッファ先頭マイナス1 (=$ 3 3 B ) 

糸！行翻訳ルーチンの出力情報の一つです. 

_雙 J まず ， 「CLR ， U +」 を2回続けます.すなわち，行の終リの N 

U L L が分岐に先立って格納されていますのでこれと合わせて， 最後に$0 0が 
3つ連なる わけですが，これは，ダイレクト実行の際に実行を止めるためのもの 
でテキストエリア内のプログラムであれば，リンクボインタが格納されるべき箇 
所です.（ここに，$ 0 0 0 0以外のコードが入ると，インタブり夕が「まだプロ 
グラムが絞いている」と解釈して姑走する恐れがあります）. 

例えば， MON コマンドでモニタに入る場合 ， S 0 3 3 C からの内容を見てみま 
すと必ず， TMON ▼の中問コード$ A 2 の後に$ 0 0 が3つ続いているのがわ 
かります. 

この後， U の値を D レジスタに転送し 「S U B D # $ 0 3 3 A 」 で，「行の長 
さ+ 5」の値を計算し ， 「S 0 3 3 B 」 を X レジスタおよび （ D 9 : DA ) に恪納 
して ， RT S 命令で呼■び出し元ヘリターンします. 

〔 4〕入カチヱック部 

アドレス]$ C 2 D 7 〜 $ C 2 E 0 (10 バイト） 

''機 有 g | A レジスタに入っているコードが， $80 〜 $ F F の範囲にあると 
き Syntax Xrror を発生 （ $ 9 2 A 0へ分岐）させる.ただし，外部ファイルから 
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の読み込みプログラムである場合は，エラーは発生せず， A レジスタの値を無視 
して [2] へ戻り，次の読み込みを続行する.それ以外は [5] へ進む. 

WORK [ (0 0 BF )= f キーボード入力時 S 00 

i 外部ファイルからの入力時 S 0 0以外の値 




〕 




PR i N T ▼中間コード （ $ B 9 ) 変換部 


ァ 

ドレス 

機 

能 


$ C 2 E 




$C 2 E 9 (9 バイト） 


A レジスタのコードがクエスチヨンマーク 


▼ 


▼ 


($3 F ) である場 


合，これを ▼ P R I IN T ▼の中間コード （$ B 9 ) に変換し，格納した後 [2 
へ戻る.それ以外の場合は [6] の $ C 2 E 9 番地へと進む， 


〔 6〕注釈文字列 • 文字列定数処理ブロック 


アドレス j $ C 2 E 9 〜 $C 2 FF (2 3バイト） 

機 能」$ C 2 E 9から入った場合， A レジスタのコードが，シングルクオ 
ー テーシヨンマーク ▼ ($27) であるかどうかを調べ，そうでない場合は 
次の [ 7 ] へと進む.シングルクオーテ ー シヨンマ ー クだった場合にはまず，コ 
ロン （$3 A ) とシングルクオーテーシヨンの中間コード （$8 D ) を格納し， 
後の文字列を注釈文字列として，入力行の終りまで（つまり，$ 0 0が出てくる 
まで）格納し続ける.——コロンの自動挿入の意味……解読実行部参照一- 
—方 ， $C 2 FC からエントリするのは，引用符 ▼ でく くられた文字列 
定数が続く場合で，もう一度，引用符 ▼ が出てくるか，行の終りまで一連の 
文字列定数として格納し続ける.この際，終了判定補助レジスタとして （6 0) 
が用いられる. 

WORK |(6 0)=注釈文字列処理$00 ;文字列定数処理時 S 2 2 


〔 7〕 &定数処理ブロック 


アドレス I $0 3 0 0 〜 $0314 (21 バイト） 

Wt 一能1 A レジスタの内容が ($26) であった場合，&定数として， 
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以下数字が続く限りそのまま格納していく （この際，間に空白▼が入っても 
そのまま格納して処理を続ける）•そうでない場合は， [ 8 ] へ進む. 

「 SUB ] $ 9 5 0 6—^数字チェック （ A レジスタ中の文字コードが数字の 

場合はキャリー フラグを クリア，それ以外の場合は 
キヤリーフラグをセットして 戻る） ルーチン 


〔8〕数値定数の処理ブロック 


$0315 〜$ 0 3 5 9 (68 バイト） 

A レジスタの文字コードが数字 （$3 0 〜$3 9) である場合に， 
数字列（数字[および1つまでの小数点 ， v E v ] のならび) 
を 数値定数と して，定数表現の中間言語に変換して格納する.数字でない場合は， 
次の [9] へ進む. 

WORK」(D 9 : DA )= 変換しようとする数字列の先頭番地一1 

($ B 50 B ルーチンでポインタとして使用） 


ア 

ドレス 

機 

1巨 


以後に続く 


(74 〜 7 C )= FAC 1 


($ B 5 0 B ルーチンの変換結果の数値が 


格納される） 


0017) 


FAC 1の数値の型が入る 

(整数型2 ;単精度型4 ;倍精度型8となる） 



$ 9 5 0 6 
$ B 5 0 B 


+数字チェックルーチン [1 4 


参昭 

3^ /II% 


文字列#数値変換ルーチン 


$ 8 5 9 7 一一 >ブロック転送 （ B レジスタで示される回数だけ， 


(X + )—- KU+) の転送を繰返すルーチン) 


解 説」文字列#数値変換ルーチン S B 5 0 B を用いて，数値定数の文字列 
を中間言語に変換するブロックです.文字列4数値変換ルーチン$ B 5 0 B は非 
常に複雑ですが，使い方は簡単ですので，変換したいと数字列が入っている箇所 
の道：前の番地をポインタ （ D 9 : D A ) にセットして呼び出すだけでよく，変換 
結果が FAC 1 に，また，その数値型が （17) に格納されて戻ってきます. 

さて，$ B 5 0 B で変換された数値は，頭に 「$ FExx 」 をつけて格納され 
ます. 「 XX 」 には数値型を表す識別子（整数型の場合$0 2，単精度型の場合$ 

0 4,倍精度型の場合 $0 8) が入ります.ここで注意しなければならないのは, 
上位バイトが$ 0 0となるような整定数，すなわち，〇〜2 5 5の定数について 
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は，特に「！」や「#」の指定がない限 1 )，1バイト節約して格納されます■例 
えば，定数「 ] 2 6」は 「FE 017 E 」， 定数「3 6」は 「FE 012 4」とな 
ります.なお，テキスト上には負定数はイ/:在せず，「一7」などは正定数「7」 
に単項演算子「一」が付くもの，として評価されます. 


〔9〕コロン•セミコロン検出部 



$C 3 5 A 




$0 3 6 5 ( 12バイト） 


A レジスタの コー ドが コロン 


である場合は，格納した後， 


に戻り， （ 61 


=1 ロン 


▼ 


(6 2)，（ E 7 : E 8 ) をクリアして次の文字へと進む，また，セ 
である場合には格納して次の文字へ進む. 


^ 説| コロンは，1つのステートメントが終わることを示す区切リ文字で 
すので，入カバッファから取り出した文字がコロンである場合には，テキストバ 
ッファに格納した後，変数名綴り内フラグ • DATA 文中フラグ • LIST 用キ 
—アドレスレジスタの3つをすべクリアした後，次の文字を続み出します • 


〔10〕 


省略形キーワー 


ド サーチ部 


ァ 

ドレス 

機 

一能] 


$ C 3 6 6 




$C 3 A 3 (6 2バイト） 


読込みボインタ X で示される位置からの文字列と，$ C 6 E D 


$C 7 2 F (省略形キーワードテーブル）に収められている省略形キーワード群 
とを，ピリオドを区切りとして順次比較していき，一致した場合はその中間コー 
ドを読み取つてテキストバッファの次の位置 （ U レジスタでポイントされる）へ 
格納する.一致する文字列が無い場合は，ポインタ X を元の値に戻して， [1 1 ] 


へ進む. 

レジスタ j (A =インプットバッファから読み込まれる文字 

B 各キ— ワ ー ドの中間 コ ー ド 

x = 読込みポインタ（インプットバッファ上の読出し位置を示 
す） 

Y ==省略形キーワードテ ー ブル上の位置を表すポインタ 
u = 書込みポインタ（テキストバッファ上の格納位置を示す） 
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S = スタック領域は，読込みポインタ X の 退避 用 および，文字列 
、 の一致判定の際の 作業用 レジスタとして使用される. 

work ] なし 

解 説1 まず入口で，ポインタ X を既に読み込んでしまった 1 文字分だけ戻 
した後， Y に$ C 6 ED を入れます.$ C 6 E D 〜$ C 7 2 F のキーワードテ ー 

ブルには，次のように省略形キ ーワー ドとその コー ドが入っています. 


番地 


内 

容 

$ C 6 ED 

47, 

4. F , 

2 E , CD 

C 6 ED 

47， 

4 F , 

53, 2 E , CE 

C 6 F 6 

52, 

2 E f 

8 8 

C 7 2 D 

57， 

2 E , 

A 0 


意 味 

▼ GO . ▼および 「 TO 」の中間コード 
▼ GOS . ▼および 「 SUB 」 の中間コー* 
▼R ▼および 「 RUN 」 の中間コード 

▼ W . ▼および 「 WIDTH 丨の中間コー 


このテーブル上の文字列群と，ポインタ X 上の文字列とを一文字ずつ比較して 
いくわけですが，文字列同士の一致判定は次の図2 • 3 * 6の手順で行います. 
この際，ポイントとなる命令は ， 「C し R A ; PSHS X ， A 」 t 「 ORA ， S ; 
ST A ， S 」 および 「LDA ， S +」 の， 5 つのスタック操作命令です ，6 
8 0 9は Z 8 0などと異なり，スタッフ領域をアクセスするのが非常に容易であ 
るため，このようにスタッフ上にアキュムレータの代わリとなるような領域を確 
保し演算操作を行う，といった手法が非常に効果的となります. 

スタック領域を使用しているため，このブロックでは他に特別なワークエリアを 
必要としません. 


図 2 • 3 • 6 省略形キーワードの一致判定の様子 


LDA , 

SUBA 


，ポインタをインクリメ 


しながら 


X + 


47 4 F 2 ECG 0.) 


V -) 47 4 F 2 E ( G 0 j 


00 00 


00 


47 45 54 ( GET ) 

-) 47 4 F 2 E ( G 0.) 



00 〇〇 
すべての OR をとる 

1ヒットでも0でなけ 
れはゼ□フラグクリア 


F 6 



F 6 


2^7 

ビリオドが出た所で 
一旦打ち切る 


ゼロフラグが立っていれば ゼ□フラグが立っていなければ 


一致 


不一致 


ホインタ Y の番地から中間コードを 最終アドレス （ C 730) でなけれ 

巳レジスタに読み込む ば次の文字列比較へ 
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ここで，注意しておきたいのは， 「 GO .」 または 「 GOS .」 が発見された場合で, 
このときは「87， CD ( T GO ▼と T T 0 T 中間コード）」，もしくは「87， 
CE ( T GO ▼と ▼ SUB T )」 を2バイト連続格納した後， [17] の 行番号処理 
ブロック へ分岐します.それ以外のコマンドのキーヮードである場合は，中間コ 
ー ドを A レジスタに蓄えて， [ 13 ] 内のコマンド後処理部 （$ C 4 5 7> へと進 
みます. - 

なお，図には示してありませんが，インプットバッファから読み込んだ直後， 

[ 1 4] 内の 小文字 畤 大文字変換ルーチン （$C 4 9 5 ) によって，英小文字は大 
文字に変換してから比較を行います. 

省'略形キーワードが見つからなかった場合は，ボインタ X の値を元に戻してか 
ら，次の [11] へ進みます. 


〔11〕記号予約語[+， 一 ，氺など〕サーチ処理部 


ーアドレス」 $ C 3 A 4~$ C 3 D 0 (45 バイト) 

~m W \ ポインタ x から a レジスタに読み込み，英字であれば次の [12] 
のキーワードサーチへと進む一方，それ以外（英記号）のコードの場合，記号予 
約語[ +，一，*，/，八，¥，>，=，くの9種類]であるかどうかを調べ， 
記号予約語であれば，それぞれの中間コードに変換して格納する，予約語でない 
記号の場合にはそのまま格納するが，コンマ ▼ ，▼であった場合 ， L I ST 処理 
用レジスタ （ E 7 : E 8 ) を調べ，読込みポインタ X と一致すれば， L 丨 ST コ 
ンドに付加される行番号オペランドを処理するために [17] の行番号処理ブロ 
マックへと分岐する.それ以外は，次の読み込みを続けるために [2]($ C 2 9 
〇へ戻る.なお，処理中は続込みポインタ X と書込みポインタ U は退避させて 
おく. 

WORK 」（ E 7: E 8) = LIST*LLI ST 行番号処理用キー.アドレス 

格納レジスタ.... [20] 参照 
sub ] $ C 4 9 0 一 4アルフ アベ ツトテストルー チン 

(同時に，英小文字4大文字変換も行う） 

解 説 1 ボイ ンタ X で、示される箇所に入って いる コー ドは数字では ない ので 
(数字は [8] の段階で選り分けられてしまう），英文字か記号のどちらかである 
ということになります.ここで，英文字の場合は〔12〕以ドの予約語サーチへ 
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I 〖 il しますが，記号の場合は演算子かどうかを見究め，演算子記号（これも予約語 
ですから要注意）であれば中間 コー ドに変換します.この際に参照されるのが， 
$ C 407〜$ C 4 18 番地に置かれる，下図のような対応テーブルです. 


沿 



地 

+ 

0 


C 

1 

0 

7 

2 

B( 


C 

4 

0 

9 

2 

D( 

，一 ，) 

C 

4 

0 

B 

2 

A( 


c 

.1 

0 

D 

2 

F( 

V) 

C 

t 

0 

F 

:) 

E{ 

V A 


-D 9 ( T + T の中 I !けコード) 
- DA( V — v 〃 ) 

-DB (▼ 幸， ” ) 

-DC( W / W 〃 ) 

—D D { ” ▼ " ) 


C 41 I 

fj C ( T Y Y ) -E 4 

(▼¥ ▼の中間コー 

ド ) 

C 4 I 3 

3 E ( T > ▼卜 E 

(▼>▼ 〃 

) 

C 415 

: i D( w ^ w )-E 6 


) 

C 417 

3 (：<▼<▼) - E 7 

{▼く ▼ " 

) 


さて，記号（もしくはその中間コード）を格納した後は， [2] へ戻って次の文 
字の処理を繰リ返しますが，格納した文字が コンマ ▼ ， ▼である場合には，特別 
な処理を加える必要があります.それは， 「LIST (もしくは， LLIST )'' フ 
ァイ ルディスクリプタ〃 ：|行番号1 [{ 7 } 行番号2]」といった形式の場合 ，II 
のあとの数字列を行番号定数として扱うために必要となる処理なのですが，詳し 
くは [20] の方で説明します. 


〔12〕基本予約語サーチブロック——予約語検索•第1弾 


L アドレス」$ C 3 D 1 〜 $0 4 0 6 (54 バイト） 

[m _ W ] 読込みポインタ x が指し示す位置から始まる文字列を， 基本予約 

語 （ END ， FOR など8 9種のコマンド名； AND ， OR など6種の演算子名 
； SGN y 丨 NT など4 3種の関数名がこれに当たる）のキーワード綴りと比較 


して，一致するものについては対応する中間コードに変換して AccA に入れ [1 3 
内の後処理部 （$ C 433 もしくは $ C 450) へ進む.基本予約語と一致しな 

い場合には，拡張予約語サーチブロック [13]($ C 4 1 9) へ進む • 


S U 

B 


解 

説 


$0495 


英小文字4大文字変換ルーチン（[1 41 内) 


$ 01 E F 〜$ 0 216のワークエリアは， 表2 • 3 • 1 のような 


テーブルに なって 


ィつ 


现在述べている1行翻訳ルーチンはもちろんの 


解 


読実行ル ー チンや1行逆翻訳ルーチン （$ C 16 9〜$ C 2 


LIST 処理 


系サフルーチン）から 





m 



きわめて重要なテ ー ブルです. 


のブロック [12] では直接には関係ありませんが ， BASIC 


タフ 3 り夕 


ヒでの予約語の体系を理解するために必要不可欠なテーブルですので，ここに掲 
役しておきます. 
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表 2 . 3 •1 ワークエリア上のテーブル$ 01 EF 〜$ 0 216の様子 


0 ；:DISK モードの時 


基本 

予約語< 

DISK 用 
拡張^ 
キーフー ド 

. 

拡張 ! 

キ-―ワ"卜 

ユーザ— 

再拡張用パ 
キーフード 


し-—— —— -■ 

番地 

n 

+ 1 

+ 3 

対応するキ ーヮードとその中間コード 

01 EF 

コマンド 

演算子名 

$68 

(T) 

$8890 

紹リテープル 

$8 ADa 1 

ジャンプ 

テーブル 

END , FOR , … MOD , ¥ t >,=, < 

$80, 81, …， E 3, E 4 f E 5, E 6 T E 7 

01 F 4 

間数名 

$2 B 

(43 稽） 

$8 A 2 C 

m 上 

$8816 

同上 

SGN , ! NT t ABS , FRE ， …， TIME , DATE 

FF 80， FF 81， FF 82, FF 83, …， FFA 9 ，FFAA 

01 F 9 

DISK 

コマンド名 

$06 

( 6種） 

$7314 

同上 

$736 F 

:分歧用 
逛理 ルーチン 

DSKINI , DSK 0$, NAME , FIELD . し SET . RSET 
$ E 9, E 8 r EA ， EB , EC ， ED 

01 FE 

DISK 
閲数名 

$09 

( 9種） 

$733 C 

同上 

$7386 

同上 

DSKF ， CVi T CVS ,，.、 L 0 C t DSKI $ 

FFAB t —— AC , —— AD ， B 2， 一巳 3 

0203 

拡張 

コマンド名 

$06 

( 6 楝） 

$8030 

同上 

$805 A 

I 同上 

CHAIN , ERASE ， LUST , LPRINT , SOUND , PLAY 

EE ， EF ； F 0 f Fl t F 2, F 3 

0208 

拡張 
間数名 

$01 

( I m ) 

$8071 

同上 


LPOS のみ 

SFFB 4 

0200 

$00 

$0000 

$92 A 0 

(エラー） 

• $92 A 0 は Syntax Error のエントリ番地 

0212 

$00 


$92 A 0 

(エラー) 



@ ROM モードの時 


ダ 




—ドおよ 
ひ CHAIN 
以下の分 

岐用処理 
ルーチン 

先頭番地 




番地 

+ 0 

+ 1 

+ 3 

対応するキーワードとその中間コード 

01 EF 

$68 

(104) 

$8890 

$8 ADA 

ンヤノ7 

テーブル 

END , FOR ，.. ，>,=，< 

(104 種類） 

01 F 4 

$2 B 

(43) 

$8 A 2 C 

$8816 

同上 

SGN , IIMT , ………-……“…… ，丁 IME，DATE 
(43 種類） 


■a 

$8010 

(ダミー） 

$805 A 

分较用 

色 3 ルーチン 

•$8010は， DISK 関係のキーワードが ROM 時のテ 
キストに用いられている場合に UST をとつた際， 
空白▼を出力するためのダミーテーブルの 
|先頭番地 

• $805 A , $8077は下段のコマンドなどの処理ノレ子ン 

01 FE 

$09 

(9 ) 

$8010 

(ダミー） 

$8077 

0203 

$06 

(6) 

$8030 

$805 A 

(ダミー） 

CHAIN , ERASE ,. .， SOUND，PLAY 

(6 種類） 

0208 

$01 

$8071 

$8077 

(ダミー） 

LP 0 S 

( 1種類） 

0200 

$00 

$0000 

$92 A 0 


0212 

$00 

$0000 

$92 A 0 



各クフスのキー 

ワードの個数が 
入る箇所 


各キーワード綴り文 
字列テーブルの先頭 
番地が入る箇所 


各処理系のエントリ番地のあるジャンブテーブル先頭 
もしくは，各処理系への分岐を行うための命令が書か 
れた処理ルーチンの先頭アドレスが入る箇所 
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基本予約語の数は，先程 [11] で選リ分けた演算子記号を除いても 13 8 種 
と非常に多く，布略形 キーワー ドのように企ての文字列と比較していると 人 変な 
時問を要しますので，まず，頭文字ごとに仕分けしてからサーチします.それは 
「頭文字の アルファベットに よる 見出し」 — >「アルファベット別索引」——> 
— _,「キーワード綴り 文字列 テーブル （辞書の 見出し語に3 たる）」 

というように3段構えで行われます.我々が辞書を引く場合のように，まず， 
Wfr \ とかあるいは国圍といった兄出しに徒って页をめくって位置 
の兄当をつけます..次に，五十音順あるいはアルフッベット順に目的の,有葉（見 
出し語）を捜します.そして，見つけた段階でその言葉の意味を拾い上げる，と 


いった手順をとります. FM - 7 の B A S I C インタフ'リタも，図2 • 3 • 7の 
ような 見出し，索引，文字列 テーブルの3ステッフを踏みながら，予約語の検索 
を行います. 

それでは， W を追って説明します.まず， 

U レジスタ=$ 8 D 2 0 + ( A レジスタの値 一$41)*2 


見出し テープ 
ル先頭番地 


文字列の頭文 




によって，兄出しを手繰リます.そしてさらに， 

Y レジスタ ニ （U レジスタの 衍し示す番地の内容）2バイト 
によって，「索リ I のアルファべット別先頭番地」を読み込みます. 

ここで， Y レジスタ = S 0 0 0 0 (頭文字が J , Q , Y，Z ) の場合は基本予約 
語ではないとして，次の [13] へ進み拡張予約語サーチを行います.そうでな 
い場合は， Y レジスタの指す番地から W び U レジスタに読み込んで，綴り文字列 
テーブル上の各文字列の先頭番地を読み込みます.読込みポインタ X 上の文字 
列と， U レジスタで示される番地にある綴リとが--致すれば， 「LDA $02, 
Y 」 によって中間コードを読み込む-方，一致しない場合は， Y を3つインクリ 
メントして区切リ S _0 0が出るまで同様のことを繰り返します（区切リ S 0 0の 
検出は 「 LDA , Y;BEQ $ C 4 19 j で行う ）. S 0 0が出たら，やは 1 )基 
本予約語ではないとして， [ 1 3] へ進みます. 

一つ注意しておきたいのは，索引テーブル上にあるコードは完全な中問コード 
ではないことで，$ 8 〇よリ小さいものについては$ FF 8 0 を足してやらない 
と正式なコードとなりません.このように頭に$ FF が付いた2バイトの中問コ 
ー ドは主として関数名のコードですが， INPUT($FFA6) や TIME ($ 
FFA 9), DATE (S FFA A) のような，コマンド名•関数名をかねた予約 
語も含まれています. 
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図 2•3• 7基本予約語サーチの様子 


① 見出し (頭文字のアルファベットによつて分類するためのアドレステーフル) 
番地 

$8023 8672, 8685, 8092； 88 C 0 T 8 BDC , 8 BFB , 8 C 0 B , 8 C 15, 8 C 1 C 



A 

¥ 


D 


[F 

亙 

pH 

rr 

$8035 

0000 

8C32 

8C39 

8C55 ， 

8065, 

8C6F, 

3C7F t 

0000, 

8C9E 


■J: 

[L] 

[L] 

¥ 

N 

: Q 

"P 

0 

[RJ 

$8M7 

8CBD 

8CEB 

8004 

8D0E t 

8015 , 

8DlF r 

0000, 

0000 T 



ぼ ’ 

U 

fu] 

U/i 

lw! 

X; 

[Y] 




②索引(頭文字のアルファベット毎に分かれて，文字列アドレス （ 2バイト） 1 

+中間コード ( 1バイト）という並びが続くへただ U $80以下のコー 
卜は，2バイト コー ドであり，この値に $ FF 80 を加えてやることに 
、よって中間コードを生成する.$00は終りを示す区切り， J 

$8672 8908, 9 D : 8 A 17, DE ; 8 A 32, 02 : ----- : 8 AA 5, 21: 00 
3 ( AUTO ) ( AND ) ( ABS ) ( ANP 0 RT ) (区切） 

$8685 8972, B 4 : 89 CD ， C 7 ; 8903 : 8907 T C 9 : 00 

\ B ] ( beep ) ( bubini ) ( bnbw ) ( bubr ) (区切） 

■ ■ 

« 灞 

$8 D 1 F 8 A 1 C , E 0 : 00 

0 ( XOR ) (区切) 


③綴り文字列 

テーブル 


^中間コードめ若い順に，予約語綴りが並んでいる. 

また，各々の綴りの区切を明確にするために，各綴りの最 
、後の文字 コー ドには$80が加えてある. 


$8890 

45, 

4 E , 

04 


〔 END (中間コ- 

-ド$80)] 

$8893 

46, 


D 2 


〔FOR ( 

// 

$81)3 

S 8896 

4 E t 

45, 

58, 

04 

〔 NEXT ( 


$82)〕 

$ : 


■■ 

■« 

* 




» 

■V 


$8908 

41, 

55, 

54, 

CF 

( AUT 0{ 

// 

_〕 

^ : 

$8972 

呔 : 

42, 

45, 

■ 

45, 

DO 

[ BEEP ( 

" 

9 

$ B 4)〕〕 

本: 

$8 A 2 A 

9 

BD (3 D + 80) 


〔▼ = ▼( 

* 

// 

$ E 6)) 

$8 A 2 B 

BC (3 C + 80) 


〔▼ぐ （ 

// 

$ E 7)] 

$8 A 2 C 

53, 

47, 

CE 


〔SNG ( 

// 

$ FF 80)) 

$8 A 2 F 

^ : 

49, 

4 E , 

D 4 


(INT ( 

// 

* 

$ FF 81)〕 

4> : 

$8 AD 5 

44, 

9 

41, 

54, 

C 5 

( DATE ( 

B 

// 

$ FFAA )) 



基本コマンド名 
および 
演算子名 


基本関数名 





さて，読み込んた中間コ ー ドが1バイトコ ー ド （S 8 0 〜 E 7 ) であった場合 
には， [13] 内のコマンド後処理部 （SC 4 4 3) へ分岐（中間コードは A レジ 
スタに持ったままで）しますが， 2バイトコード （$ FF 8 0〜 FFAA ) の場 
合には後処理は必要ありませんのでそのまま格納して（ただし，実際に格納が行 
われるのは [丨3 ] 内の SC 4 50- C 456 番地においてですが)，次の文字の 
处现をするために [2 ] へ戻ります. 


〔13〕拡張予約語サーチブロック 予約語検索•第2弾- 

アドレス]$ C 4 I 9 〜 $C 4 8 F (11 9バイト) 

機 m ] 読込みポインタ x の指す位置からの文字列が，拡張キーワード （d 
I SK モードの場合は D I S K 用拡張キーワードも含む）であるかどうかを調べ， 
キーワードであれば，その中間コードを A レジスタ内に生成 （2 バイトコードの 
場合には B レジスタに $ FF が入り，両者を連続格納してしまう）して，各コマ 
ンドの後処理を行う.一方，キーワードでなければ， 変数名 綴リ内フラグ （6 1 ) 
をセット （「COM $ 61 j によって反転して$ F F にしている）してから，次 
の文字の読み込みを行うべく， [2] へ戻る. 

WORK ] (5 F )=2 バイト中間コード v FFXX ▼指定フラグ 

(6 0 )= 中間コード作成用レジスタ 
(61)= 変数名綴り内フラグ 
(6 2) = DAT A 文中指示フラグ 
$ 01 E F 〜$ 0 216.••表2,3* 1参照 
S U B 1 $C 4 9 0—- — アルファベットテスト•ルーチン 

($ 0 4 9 5 一一 > 小文字#大文字変換 ルーチンを含む） 

i[S W \ 拡張予約語サーチのアルゴリズムは少々難しくなっていますので， 

図 2 • 3 • 8 によって大体の流れを握んでいただくことにいたしましょう.図は 
D I S K モード時の様子を表していますが， ROM モード時でも手順は全く変わ 
リません. 

まず， （5 F ) をクリアして （60) に SE 8 (D S K I N I の中間コード）を 
入れ， U レジスタに S 01 F 9を読み込みます.また， B レジスタは比較すべき 
綴り文字列の個数を表すカウンタとして用いられ，一回の比較が終わる度にデク 
リメント[同時に （6 0) はインクリメント]されています.サーチは， 
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① ， DSKINI-RSET (コード： $ E 8 〜 ED ; U =$01 F 9) 

② ， CHAIN 〜 PLAY ( コード： SEE 〜 F 3 ； U = $ 0 2 0 3 ) 

③ ， DSKF-DSK I S (コード： $FFAB 〜 B 3 ;U 二 $01 FE ) 

④ ， LP OS (中間コード： SFFB 4 ; U = $ 0 2 0 8 ) 

の 4 つのステ ッブに分かれますが， カウンタ B の値が0になる毎に 次のステッフ 
に進むわけです.また，途中で X 上の 文字列と Y 上 （図参照） の 文字列が一致し 
た場合，その時点での （5 F ) と （6 0) が中問コードを与えてくれるのです. 


図2 • 3 • 8 拡張予約語サーチの様子 （ D 丨 SK モード時) 


U レジスタが 
示す順番 


B = 0 となったら 


(5F)=$00 
丨 I (60) =$E8 

0IF9 ※ （十 1) (4*3) 


… U=U+ 10($OA) 



U = $01FE 



j (60>=$AB;(5F ) 反転 | 
01FE ( + 1)^ { + 3) 0203 
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f (5F )=$00 
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( 1 櫂） ■ L P 0 S 

_拡張関数名 

ROM モードの場合，上図の※を付けた場所には$ 8 01 D が入っています. 

そして， $8 , 0 1 D -8025 は次のような ダミーコード テーブルとなっています. 

8 01 D A 0 ; A 0 ; A 0 ; . ; A 0 ( $ A 0 が計 9 個入っている〕 

この$ A 0という コー ドは，空 h ▼のコード$ 2 0に$ 8 0を足したもので 
あ 1 ),読込みポインタ X 上の文字は空闩ではあリ得えない（空白は [2] の読込 
み分析部で選り分けられて既にスキップされている）ので，結果的に， $ E 8 〜 
ED および $FFAB 〜 FFB 3 の D 丨 SK 関係の中間コー ドは生成されないこ 
とになります. 
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なお，このブロックでは，予約語検索の他に各コマンドの後处:现を行う場所が 
あります.また，生成した1バイトコ ー ドは ， S C 4 5 7で格納します. 

SC 443- C 44 F では， A レジスタに生成したコードが$ 8 F ( T E L S 
の屮問コード）であるかどうかを調べ， S8F の場こは，コロン▼: T $3 A 
を挿入した後（これは実行時に必要となる区切文字です），$ 8 F をテキストバッ 
ファに格納して[丨 7] の行番号処理ブロックへ進みます CEL S E 行番号 ▼ 
の対策).そうでない場合は ， $C 4 5 7へ進みます. 

$ C 4 5 0 〜 C 4 5 6は，2バイト コー ドが生成されたときに，それを書込み 
ボインタ U の指す位置へ格納した後 [ 2 ] へ戻る，という処理を行う部分です. 

SC 45 7- C 4 60 では，生成したコードが$ 8 3 ( ▼ D A T A ▼) であるか 
どうかを調べ ， S 8 3ならば以下に続く文字列が D A T A 文のデータであること 
を宣言（すなわち，データ文中フラグ （6 2) を立てる）します. 

また，$ C 4 61 〜 C 4 6 7では，生成コードが$ 8 C ( ▼ R E M ▼) かどうか 
をチェックし，そうであれば， [ 6 ] の注釈文字列処现ブロックへ分岐します.そ 
うでない場合は， [15] の ▼ GO ▼後処现ブロックへと行きます. 


〔14〕 アルフ アベ ツトテスト•ル ー チン 


アドレス j $C 4 9 0 〜 $ C 4 9 F (16 ノくイト) 

機—能|まず，英小文字辞大文字変換ルーチン $C 4 9 5によって A レジス 
夕内のコードが，小文字の場合は大文字に換えた後アルファべットチェック•ル 
—チン$9 4 FD によって， A レジスタのコードが英字 （$4 1〜5 A ) であれ 
ばキャリー乜ット，それ以外のコードであればキャリークリアの後戻る. 

一 S U B 1$ C 4 9 5 (〜 C 4 9 F ) —一^英小文字功大文字変換（内包ルーチン） 

※ A レジスタ内のコードが英小文字 （$6 1〜 7 A ) であれば， 
大文字 （$ 4 1—5 A ) に変換 ； このブロックに内包されている. 

$9 4 F D ->アルファベットチェック.ルーチン 

こ れに 関連して，アルフ ァベ ットチェックルーチン （$9 4 F D 〜 9 5 0 5 ) 
および，数字 チェック.ルーチン（$ 9506〜9 50 E ) のソースリストを掲 
げておきます. 


S94FD C M P D #S41 ， A V 

B し 0 S 9 5 0 5 

SUBA i S 5 3 
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〔15〕 ▼ GO ^ (中間コード$ 8 7) の後処理ブロック 


アドレス | $C 4 A 0 〜 $C 4 D A (5 9バイ ト) 

' 有 ¥] A レジスタに生成されたコードが$ 8 7 ( VGOT ) である場合，そ 
の後に T TO ▼または ^ SUB ▼が続いているかどうかを確認してそれぞれの中 
間コード （$ CD または $ CE ) を付加する.この際間に入った空白はそのまま 
格納する. ▼ GO ▼のあとに ▼ TO ▼も V SUB T もない場合には 「Syntax 
Error 」 を発生させる，なお，格納後，行番号処理ブロック [17] へと進む. 
一方，$87でない場合には，：1 6] へ進む. 

SUB ] $0 4 9 5 一-一 > 英小文字兮大文字変換ルーチン 

$ 9 2 A 0- ^Syntax Error エントリアドレス 


〔16〕行番号参照コマンド選別ブロック 


アドレス」$ C 4 E 6 〜 $0 5 0 7 ( 3 4バイト） 

機 能| A レジスタ内のコードが行番号処理を必要とするコマンドのコード 

である場合， [1 7](あるいは[19]，[20])へ分岐する. 

それ以外のコードの場合は， [2] へ戻って次の文字の処理を行う. 

解 説]まず， A レジスタ内のコードが ， S BB ( LIST )，$ F 0 (LL 
1 ST )，もしくは，$ D 3 ( ERL ) の，特殊な行番り•処理を必要とするコマン 
ドの中間コードである場合の選リ分けを行って，それぞれの処理系 [19] もし 
くは [2 0] へ分岐します.」ての3つのコードに当たらない場合は， 行番号参照 
コマンドコ ー ドテ ー ブル $ C 4 D B 〜 C 4 E 5 (下図）の中のコ ー ドと比較して 
いくことにより行番号参照コマンドを選別し， [ 17 ] へ飛びます. 

$0 4 DB 9 D 8 y 9 A 9 E 8 B 9 9 9 C 8 A A 1 D 6 0 0 

( 番地） (AUTO) (RUN) (EDil) (DELETE) (RETURN) (RENUM) (RESUME) (RESTORE) (UNLIST) (THEN) ( 終り） 

どのコードでもない場合には，拡張フック$ 0 2 9 F [普段は$3 9 ( RTS ) 
が書かれている]をコールしてから，[2]($ C 2 9 C ) へ戻リます. 
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〔17〕行番号処理ブロック 


アドレス | $ 0 5 0 8 〜$0 5 2 7 ( 3 2 バィト） 

機 能 1読込みポインタ X の位置から文字列を，サブルーチン [18] によ 
って行番号定数（もしくはピリオド行番号）に変換して格納する.コンマ▼，▼ 
($ 2 C ) やマイナス ▼一 ▼ ($2 D = c>$DA に変換）が続く場合は，さらに上の 
処理を繰り返す.後に続く文字が空白でもコンマでもマイナスでもない場合， [2] 
の途中$ C 2 A 0 に入って次の文字の処理へ移行する. 

1 W \ RENUM コマンドを実行するとテキスト中の行番号もすベて改め 
られますが，これを行うためには， GOTO , RESTORE などのように後ろ 
に行番号が続くべきコマンドや行番号が続く可能性のあるコマンドに ついては， 
定数を普通の数値定数と区別する必要があります.そこで， [16] によって，行 
番号定数をオペランドに持つコマンドを選別して，後に続く数字の並び（または 
ピリオド）を行番号定数として特別扱いし，頭に識別子$ FEF 2 を付して格納 
するわけです（ピリオドの場合はそのまま格納します）.識別子$ FE F 2は，各 

コマンドの構文チヱックにも用いられます. 

ピリオド行番号は， 直前に編集 • 修正などを行った行番号の代用として重宝な 
ものですが.この行番号の値を記憶しておく箇所は，ワークレジスタ （ A 6 :A 
7) となっています（なお，エラーの際はエラーを起こした行番号が入ります). 


〔18〕行番号定数処理サブルーチン 


アドレス! $0 5 2 8 〜 $C 5 6 A (67, くイト) 

^_ W } 読込みボインタ X の位置の文字が数字の場合（$ 9 5 0 6で判断)， 

$9162 ルーチンによって数字列#行 番号 変数を行い， $FEF2 を付けて格 
納して戻る一方，ピリオドの場合にはそのまま格納して戻る[この際，数字列も 
しくはピリオドの前に入った空白はそのまま格納].どちらでもない場合は，ポイ 
ンタ X を一つ戻してリターンする. 

WORK ] (D 9 : D A ) = $ 916 2ルーチンに対する入力情報 

(4 B ： 4 〇 = $ 916 2ルーチンの出力情報 
S U B 1$ 9 5 0 6 —^数字チェック • ルーチン（キャリーフラグ） 

$9162 ^'行番号読込み作成ルーチン 
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解 説 I $916 2 を呼ぶ前には， $D 8ルーチンに よる読み込みを必ず行 
う必要がありますので ， S C 5 4 1番地付近で 「LEAX -$01, X ; S T 
X $ D 9 ； J S R SD 8」 という一連の操作をしています（このような操作 
は [8] における$ B 5 0 B 文字畤数値変換ルーチンの コール前と，ここの2ヶ 
所だけです. 

なお，注意しておきたいことは，行番号を表す文字列のあとにピリオドが入つ 
ていても小数点とは扱われず，例えば， 「GOTO 2 0. 5 」 と書き込んだ場合， 

L I ST をとると， 「GOTO 2 0u. 5 」， と必ず空白を柿入して警告を発しま 
す（この処理を行うのは，$ C 5 5 A 〜$ C 5 61 ). 


〔19〕 ▼ E R L ▼の後処理ブロック 



SC 5 6 B 




$ C 5 9 B (4 9 


卜） 


ERL ▼のコードの後に 比較演算子 （>， 


く）が続いていた 


場合には（間に空白が入っていても構わない），その先に続く文字列に対してサブ 
ルーチン [18] によって行 番号 処理を施す.比較演算子が続かない場合には， 
何もせずに [2 ]($C 2 9 C 番地）戻る. 


—解 説 I ERL 関数の場合， 「IF ERL = >189 0 THEN. 」 

などといった使い方が多く， 「E R L ブラス 比較演算子」 の後に続く定数が R E N 
UM コマンドによって更新される必要があります.そこで， 「E R L プラス 比較 演 
算子」の後の数字列を，行番号定数として R E N U M の対象となるようにするの 
が，このブロックの役割です.なお， RENUM の対象としたくない場合は（そ 

ういうケースがあるかどうか存じませんが- ） ，左辺と右辺を入れ換えて「 I F 

18 9 0 > = E R L.j などとすれば，定数 18 9 0 は R E N U M によっ 

て更新されなくなリます. 


〔2 0 〕 T L i S T ▼, V LLIST ▼後処理部 


アドレス| $ C 5 9 C 〜 $ C 5 E 1 (70 バイト） 

機 能 | T LfST v , v LLIST ▼後に引用符が続く場合（間に空白が 
場合（間に空白が入っていてもよい),以後の文字列の先読みを行って，引用符の 


95 










対応や左右カッコのネスティングをチェックしながらコンマの検出をし，地の文 
のコンマであれば，その位置をさすアドレスを （ E 7 : E 8) に格納して [2] 
($ C 2 9 C ) へ戻る.引用符が続かなければ， [17] の行番号処理ブロックへ分 
岐する. 

WORK 丨 （6 9 )= 読込みポインタ X の一時退避用レジスタ 

(D 9 : DA )= 読名みポインタ X の一時退避用レジスタ 
S~U B 1 $ D 8- ^凡用読込みルーチン（空白スキップ付き〉 

解 説 I L I S T コマンドは行#号定数をオペランドとして待ち得ますから， 
後:こ行番号が続く場合には$然[〗 7] の処理をしなければなりません.ところ 
が ， 「LIST “（ファイルディスクリピタ）”，行番号」という様に，間にファイ 
ルディスクリプタ（以後， FD と略します〉が入るという形式もあって，容易に 
は行きません.その F D も，2つの引用符で囲った単純なものばかリであればよ 
いのですが，クォーテーションで始まってさえいれば，どんな文字列式でも出て 
くる可能性があります.例えば， 

「LIST rt C A S 0 ：，’ + LEFTS ( A $ + I NPiJTS (8)，8)， 

I 0 0 0 - 2 0 0 0 」 

ということも有り得るわけです.問に入った文字列式については今までと M 様に 
L 2 j —[ 1 3] のブロックで中問コードに直してやる必要があるわけですが， 
そのまま [2] に戻ったのでは行番号処理を忘れてしまう場合があリます.そこ 
で， FM -7 では， FD の部分の先読みを行っておいて，行番号処理を行うべき 
場所に （ E 7 : E 8 ) という印をつけておくのです.： t 読みは，行の終りの印 （N 
U L L = $ 0 0 ) が iTi るか，地の文のコンマを発£するまで行われ，コンマ発見 
の埸合はその咔の読込みポインタのを，前述の印として （E 7 : E 8 ) にし 
まい込みます.いずれの場合にも，説込みホインタ X の値を先読み前の値に戻 
してから [2]($ C 2 9 C ) へ戻ります.この際，文字列定数中のコンマや，力 
ッコ内のコンマを拾わないように，リ|刖符の対応や，左右のカッコによるネステ 
ィングの様子をチヱックしながら検索を行っておリ，このブロックの大半は，そ 
のためのプログラムで占められています.従って ， 「LIST W C A S 0 : " + (， 
1 5 0 — 4 0 0」などと行うと，「15 0 — 4 0 0」は行番号として扱われないこ 
とになります（いずれにしてもエラーが出るのは明らかです）. 

また，次に続く文字が引用符でない場合には，問に F D が入リ込むことはあり 
ません（文法害3 . 1 • 3の[形式2 ] の項 [ 3 _ 8ページ]を御参照下さい） 
ので，ポインタ X の値を元に戻して，直接， [17] の行番号処理ブロックへ分岐 

します. 
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また一方 ， （E 7 : E 8) に先程の印を入れて， [2] 以ドの処理を続行した場合， 
コンマが出てくるたびに，ホインタ X の値と （E 7 : E 8 ) の値とを比較するた 
め，両者が一致すると同時に，行#号処理ブロック [17] へ向かいます（この 
判断は [11] の内部の S C 3 C 4番地で行います）. 

以上で•，1行翻訳ルーチンの解説を終わリますが，最後にサンプルを載せておき 
ます . L I NE I N P U T 文で読み込んだ一行を， 1 行翻訳ルーチンによって中 
間言語に直し，注釈文として領域を確保しておいた10 0 0 0行に格納し ， GO 
SUB 文によって実行するというものです. 


サンプル 

•マシン語ルーチン 
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A6 

匚〇 


LOOP 

LDA 

,U+ 


00230 

6020 

A7 

80 



STA 

,x+ 


00240 

602F 

11A3 

E4 



CMPU 



00250 

6032 

26 

F7 

6026 


BNE 

LOOP 


00260 

6034 

35 

40 



PULS 

U 


00270 

6036 

86 

27 



し DA 

#$27 


00230 

6038 

A7 

82 



STA 

，一 X 


00290 

603A 

B6 

8D 



LDA 

#¢80 

ン IT 

00300 

603C 

A7 

82 



STA 



00310 

603 E 

86 

3A 



し DA 

#«3A 

m 

* 

00320 

6040 

A7 

32 



STA 



00330 

6042 

35 

10 



PULS 

X 


00340 

6044 

9F 

D9 



STX 

¢09 


00350 

6046 

39 




RTS 


+++End of CMD001 ち Return to 

00360 






END 


イドク * ； ; ッコウ / レ ' 4 ン 
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拳 BAS I C プログラム 

10 ft $= 11 M r A7."0 s AD=^H61 00 
20 LINE INPUT 卜 “ A ? 11 f A* 

30 A7,=VARPTR(A$) 

40 POKE AD,PEEK (A7.) 

50 POKE AD+1 t PEEK(A%+l) 

60 POKE AD+2,PEEK<A_/_+2) 

70 EXEC m 6000 
BO GOSUB 10000 
90 GOTO10 

10000 * * h * * * * - * * . . . . 


! 00 1 0 


f #'# オ ' 9 聲 t .i 参 w * 舞舞 t 筹鬢辱 


1 0020 RETURN 


_ 実行例 

Break 

Ready 

RUN 

A ? X=3, 141592 65/4: X=SIN(X) : PRINT f< X = 

X= .707107 

コマンド A ? 


Break In 20 
Ready 


10 A$= 11 : AX=0 : AD=ScH6100 
20 LfNEINPUT "□フント _ A ? " f A* 

30 A%=VARPTR<A$) 

40 POKE AD , PEEK<AX) 

50 POKE AD+1 , PEEK(AX+1) 

60 POKE AD+2,PEEK(AX+2) 

70 EXEC 6000 
80 GOSUB 10000 
90 GOTO10 

1 0000 X=3* 14159265 #/4: X=BIN (X) : PRINT "X= ... 

■ I 蠢 t 者 t 翁 拿 t 參鼋 卷攀4 奢 ¥ ♦蠡參 蜃 II Ii *^ i ^*** f ^ *i W * * * § 曾碌 量 f 籌 拳攀 攀碌 馨罄鱟 i 

49* 署馨 ¥零 髻 t 蠢鋈 I 暑 i 麝蠢 •馨幸 

會 w 蠢丨 黍 4 4 暑 奢 4 ^ i $$9 t wrwai 9 * ** *^^14*** 9 § # ,t t # i # # f i $ 零 鲁 碌 a 畢 i ■ 翁 m 等 蠡蠢纛 璺 ••鬱 署曹 r 

* **••*•*• •纛 • f i ^ #■ * J ^ # # # f if ^ J r #，■#>#， # 畚 i 罾馨 馨蜃礓 費* 鬱署 WM *** W 9* # ，，#,#■#_ 

• 暑 督 ■ ，餐 丨麝攀 ••摩 •蜃聲 

10020 RETURN 

2 0行の L I NE I N PUT 文を，オープンしたファイルに対して行うように 
改造すれば，ファイルにアスキ ー セ ー ブした，任意のコマンド*ステ ー トメント 
を実行させることができるなど，工夫によって様々な応用が利くサンブルです. 
なおその際， プログラムの 実行に先立って ， CLE A R コマンドによるマシン語 
ノレ ー チン 格納 エリアの 確保と，マシン語 ルー チン （7 〗バイト） の 読込みがなさ 
れていなければなりません. 
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(5) 行番号サーチルーチン 


アドレス | S 8 F 1 C 〜 $ 8 F 31 

~ W \ 希望の行番号を持つ行を，テキスト上でリンクポインタを迪りなが 
ら捜しあて，その場所のアドレスを X レジスタおよび （69 : 6A) に入れて返 
す.該当する行番号がない場合は，その行番号より大きな行番号が出たところで， 
その行の位置を持って帰る.入力した行番号以上の行番号がない場合は，テキス 
卜最終アドレス ー 1が返される. 


レジスタ 

入力情報 


復帰情報 


D ， X ， U，CC (特にキャリーフラグが問題となる） 

サーチしたい行番号を （4 B : 4 C ) 〔エントリによっては D レジ 
スタの場合もある〕に入れてコールする. 

X レジスタ，および （ 6 9 : 6 A ) に，上で述べたテキストアド 
スが入る，また，該当行番号の有無によってキャリーフラグが変わ 
り，なかつた場合キヤリーセツト；あった場合キャリークリアとなる. 


解 _説」テキスト作成 ルー チンを初め， GOTO 文 ， GO S UB 文など行番号 
の参照を必要とするコマンドのほとんどがこのルーチンを用いて，参照したい行 
番号を持つテキスト行の位置を探索します.探し物が発見されたかどうかは キヤ 
リーフラグ によって示されるので ’， r Undefined Line Number 」エラーの発生は 
キヤリ—セットを見てなされます.逆に， AUTO 処理中などでは，自動発生し 
た行番号が発見された場众，そのまま書き込みを続けることは不適当なため，キ 
ヤリークリアを兄ると[由:ちに AUTO 処理を打ち切ります.なお，ある特定の番 
地からサーチを行いたし、場分には，サーチ行番号を D レジスタ，サーチ開始番地 
を X レジスタに入れて， $ 8 F 2 0 からエントリしてドさい.ソースリストを載 
せますので，リンクボインタの重要性やフラグの立て方を参考にして下さい. 


S 8 F 1 C L D D 

L D X 

S 8 F 2 0 LDU 

B E Q 
C M P D 
B L S 
し D X 
B R A 


( 4 B : 4 C ) S 8 F 2 D 〇 RCC #501 

( 3 3:3 4 ) (キヤ 1 J — フラグセツト） 

，X |リンクポインタ= 0即ち， S 8 F 2 F S T X (69 : 6 A ) 

S 8 F 2 D !テキスト終了ならリターン R T S 

$02, X ……比較 

s 8 F 2 F 入力行番号以上 〔行の構造〕 

ならリターン 


+ 0+1 +2_+3 +4 / 


$ 8 F 2 0 

リンク 

行番号 

本 体 

0 0 

リンク 


I 


ノ 
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( 6 ) リンクポインタ修正ルーチン 


アドレス $ C 7 3 0 — $ C 7 4 E 



けてし 


\ 


* 


B A S I C プログラム•テキストのリンクポインタの正しい値を付 
なお，エントリによつて修正範囲が異なるので注意する. 


$ C 7 3 0— テキスト全部について修正を行う 


レジスタ| A ， 巳，- X ， U 

入力情報 I $C 7 3 0エントリ^ > X レジスタに修正開始番地を正しくセット. 

$ C 7 .3 2 " — ~>なし[強いて言えば， （ 3 3: 3 4 ) に 

テキスト開始番地を入れること]. 

復帰 H ! x レジスタに，テキスト最終番地マイナス1が入ってしまう. 

WORK | ( 3 3:3 4 )=テキスト開始番地 


解 説 I リンクポインタの重要性は， （5 ) 行番号 サーチ ルー チンのところで 
理解していただけたと恐います.このように，あるデータの塊の特定部分に，次 
のデータが置かれる場所を/ P すポインタが入リ，&終的にはこのようなデータが 
次々に積み重って苻機的構造体を成す，といったものを， リスト構造をもつ という 
こともあ 1 )ますが ， B A S I C プログラムテキストは，最も原始的なリスト構造 
伸:の 一- ) であるといえます. 

さて，テキストに削除 • 挿入 • 修正などを加えて移動が行われると，リンクポ 
インタ内の値は正しくなくなり，作成したリスト構造がこわれてしまうことにな 
ります.そこで，文の切れ13 (NULL 二 $0 0) を迪っていきながら，リンク 
ポインタを修正する必袈がありますが，前述したように，$00があるからとい 

って文の終りとは限らない-すなわち，数値定数内の$ 〇 0が存在し得るので 

テキストを読んでいって数値定数をスキップする必要が出てきます.この数値定 
数は必ず，頭が $FE で始まリ，その次の 1 バイトで型を表します.この型の下 
位4ビットは，そのまま以後の使用バイト数を衷していますので，これを利用し 
てスキップを行います.なお，終了判断は，リンクポインタの値が$ 0 0 0 0に 
等しいかどうかで行われます.いくら，リンクボインタの値が狂ってしまうとは 
いえ，テキストの終了を表す IJ 印($ 0 0 0 0)だけは有効なのです.…… 

また，誤って NEW コマンドによって消去してしまったテキストを復活したい 
場合には，テキスト先頭の リンク ポインタを$ 0 0 0 0以外の 値を入れた後，こ 
のルーチン （$C 7 3 0 ) を コール すればうまくいきます. 
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2 — 3 — 5 メインルーチン • 解読実行部（解読実行ルーチン) 


アドレス」 $ C 63 D 〜$ C 6 EC 

※ダイレクト実行の際のエントリ番地は $ C 67 A となる. 

機 能|読込みポインタ （D 9 : DA ) で示されるテキスト上の中間コー 
ドを解読•吟味した後で，各処理系のエントリ番地を求め，各処理ルーチンを呼 
出し実行する.テキスト終了 （暗黙 END ) の判定も行う. 

^力情¥1読込みポインタ （ D 9 : D A ) が‘正しく設定されていればよい. 

この他に入力情報となるのは，0 S における semaphore に対応する， 
待機中の B AS I C 割込みの個数 （ 0 5 9 A ) のみ. 

復帰情報」プログラムテキスト終了（暗黙 END ) 時，キャリーフラグをクリ 

ヤして ， END • STOP ルーチンの途中 （$ 8 FE 4) に入る， 
WORK ! (4 7:4 8 )=現在実行中の行番号 

(4 F ： 5 0)=現在実行中のテキスト番地 

( 0 0 A 9 ) = トレースモード.フラグ （TRO N / TROFF ) 
(A F ： B 0 )= スタックポインタの復帰用の値 • 格納レジスタ 
( 0 0 B 1 ) = エラー RESUME フラグ 

(D 9 ： DA )= 汎用読込みポインタ（ここではテキスト番地が入る） 

( 0 5 9 A ) =待機中の BAS I C 割込みの個数 （ semaphore ) 

( 01 F 2 ： 01 F 3) 1ジャンプテーブル先頭番地など（前節 

(0 1 FC ： 01 FD ) J (4) の [12] 表 2 • 3 • 1参照） 

( 0 2 5 7 — 0 2 5 9) = PEN コマンド用拡張フック 
( 0 2 6 3 -0 2 6 5) j 披張フック • 普段は RTS 命令がある 
(0266 〜 0268)1( JMP 命令を書くための3バイト） 
SUB | $919 5 — LET (代入文）処理ルーチン… 3 — 8 節 参照 

$ 9 C 2 7— H 文字出カルーチン （JMP $D08E... 第 4 章） 

$ 9 D C 1 — M 丨 D $文処理ルーチン 
$巳6丨5—行番号定数出カルーチン 
$ B F D D -> 丨 N P U T 処理ルーチン 

$ D 3 C 2 —BAS i C 割込み （ COM ， KEY など)制御 ルーチン 
$ D B 5 9 — Break . キーチ：!： ッ クルーチン 2 — 3 — 6 節 参照 

$ E 1 E 4 —T I ME コマンド処理ルーチン 

$ E 2 91- >D AT E コマンド処理ルーチン 
$ E B 4 B —S C R E EN コマンド処理ルーチン 
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$8 F E 4 —END ルーチンの途中のエントリポイント （3— 4 節) 

$8 DD 1 —エラ_処理ルーチン•エントリ番地 

解 堅」 解読実行ルー チンの基本的なアルゴリズムは， テキスト作成ルーチ 
ンのアルゴリズムに比べるとはるかにシンプルで理解しやすいものとなっていま 
すが，このことは実行時のロスタイムを小さくすることと大きな関係があります. 
すなわち，骨格となる処理は 1 ■ (ジャンプテーブル先頭番地） + 2* (中間コー 
ド）」の計算から各処理系エントリ番地の書かれている場所を割り出し，そこか 
ら エン トリ番地を取り込んで分岐す るという単純なものとなっているのです. 

さて， 解読実行ルーチンは， 処理の効率を上げるために，上述の エントリ番地 
を計算して分岐する部分 （$C 6 8 0 〜 C 6 DA ) をサブルーチンの形として持 
っており， 本体 （$ C 6 3 D 〜 C 6 7 F ) と大きく 2つのブロックに別れており 
ます.すなわち， 各コマンド処理系ルーチンは， 解読実行ルーチン本体のサブル 
ー チンの一端となっているわけで， RT S 命令一つでこの解読実行ル ー チンに戻 
ってくることができるのも，このような構造によるものです （図2 • 3 • 9). 

図2 • 3 • 9 解読実行ルーチンと各処理系との連係の様子 


(2) FOR 文， WHILE 文等のスタック操作コマンドは，リタ 
ーンアドレスを放棄して JMP で戻る 



それでは，抜粋したソースリスト（図 2 • 3 • 1 0 ) で御覧下さい • 
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図 2 • 3 •10 解読実行ルーチンの概略 （ 2の1 ) 


本体 


8 ASIC 割込 
処理 
ポインタ 
更新 


C 63 D JSR $0263 
JSR $0659 
LDA (059 A ) 


シンタクス 

チェック 


次の行 
移行 


"拡張フック 

*■ フレークキーチェッ クル —チン 
待機中の BASIC 割り込みがあれば，割込み制 
御ルーチン （$ D 3 C 2) へ分岐 

f C 64 B STS ( AF 汜 0) …スタックポインタ復帰用の値を格納 
LDX ( D 9: DA ) 

…テキスト番地の復帰用の値 

文の終り （$00 または ▼:▼) でなければ Syntax 
Error ； ▼:▼なら $ C 67 A に飛ぶ 
リンクポインタ読み込み；テキスト終了（リン 
ク=0>なら，暗黙 END 処理部 ($ C 6 DB ) へ 
STD (47:48) …行番号の格納 
STX ( D 9: DA ) …読み込みポインタ設定 


SIX (4 F :50) 
LDX，X + 


f C 65 D LDD , X + -t 
BEQ $ C 6 DB 


ト レース 

モード処理 


LDA ( A 9) 


解読実行 


f C 67 A JSR $ D 2 
BSR $ C 680 
BRA $ C 63 D 


トレースモードフラグが立っていたら， 
'▼十（行番号） + T ] w を画面に表示 
次の文字の読み込み 
各処理系ルーチンへの分岐 



C 680 BNE $ C 683 1空文（文字コードが$00または 
RTS 1なら本体ブロックへリターン 


n 

ェ 

卜 

リ 

番 

地 

の 

取 

込 

分 

岐 

サ 

■ 厂 

ル 

I 

チ 


C 68 F CMPA =$80 j A レジスタ内の文字コードが中間コードでなければ 
LBL 0 $9195 f LET 文（代入文）処理ルーチンへ分岐 


LDX $01 F 2 J 
C 69 C AS し A 




ジャンブ 
テーブル 
\先 頭 


TFR 

A , 

ABX 


LDX 


JSR 

$ D 2 

JMP 

，x 

C6B2 JSR 

$ D 2 


(01 F 2: F 3)=$8 ADA 
“• A = A *2( この際，最上位のビットが切捨てられ， 
値は$00〜 FE に） 

… X = ( テーフル先頭）+2*(中間コード） 

…エントリ番地（分岐アドレス）の取り込み 
…次の文字コードを読み込む 
•■各コマンド処理ルーチンへ分岐 
■■-( 頭がコード $ FF で始まっている時)後続コ 


CMPA iJ $9 E ) 
し BEQ $9 DC 1 j 


ドの読み 
込み 


FF 9 E ▼なら，隨3$文処理ルーチン 


CMPA 甘 A 0 
LBEQ $ EB 4 B 
JMP $0266…拡張フック 


▼ FFA 0 ▼なら， SCREEN コマンド処理系へ 



図 2 • 3 •10 解読実行ルーチンの概略 （2 の 2) 



C 6 DB 


C 6 E 8 


LDB 

INCB 

BEQ 

LDB 


(47 : 48) 

:ダイレクト実行中なら、 RESUME チェック 

卜 

を行わずに、 $ C 6 E 8 へ行く 

$C 6 E 8 j 

P $13 …… Error Without Resume エラーコード 


TST (B 1) ’ 

卜 

LBNE $8001 ^ 

ANDCC *$FE -キヤリークリア （$8 FE 4 で必要となる） 

JMP $8 FE 4 . END ■ STOP * ブレーク処理ブロック 


本体ブロックでは， BAS I C 割込み処理—ポインタ更新—シンタクス（構 
文）チヱック—新しい行への移行（テキスト終了テストも含む）—トレースモー 
ド処理—解読実行の順に処理が進められます.なお， 構文チェックは， 前のコマ 
ンドの処理が終了した際に文が」 R しく終結しているかどうかをチェックするため 
のものですが，次のコードが コロン （▼: ▼ = $3 A ) の時は，新しい行への移 
行処理とトレースモード処理の2つをスキップして，すぐに次のステートメント 
を実行します.また，トレースモード処理において， ▼ [▼および ▼] ▼の表示 
には1 文字出カルーチン （$9 C 27 O $ D 08 E ; A レジスタの文字コードを 
出力）を，行番号の表示には 行番号出カルーチン （$ B 6 1 5 ; D レジスタ内の 
行番号定数を出力）を,それぞれ使用しています.解読実行ルーチンに入る時に 
は常に （B F ) = $ 0 0となっていますので，出力対象ファイルはコンソール（画 
面）になリます. 

分岐用サブルーチン内に※と記した場所では， 中間コードの 分類を行います. 
読込みル ー チンによって A レジスタ内に取り込んだコードが， 

r $ 8 0〜$ C B ―>基本コマンドジャンプテーブル （8 ADA 〜 8 B 71) 

[ よリ飛び先を求めて各処理系ェントリへ分岐 

( $ C C 〜 $ E 7 — -^Syntax Error (コマンドではない） 

I $ C C 以上 $ E 8 〜 $ F E ^ * J MP [0 1 FC ] (間接分岐） 

f 後読 9 E — MID $ 文 A 6— TIME 文 

、$FF コ— 9 B—PEN AA — DATE 文 

(C 6 B 2 ) I ドが A 6 — INPUT 文 AO — SCREEN 文 

と分かれます. （ 1 FC : 1 FD ) には， R 0 MP #$ 8 0 5 A ; D I S K 時 $ 7 
3 6 F が書かれており，拡張コマンド • D I SK コマンドの分岐アドレスを計算 
する 延長ルーチンへ 間接ジャンプすることになります. 
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r $ E 8 〜 E D —~ >D I S K コマンドジャンプテーブル （ 7 3 3 0 
$ 7 3 6 F < 〜 7 3 3 B ) よりエントリ番地を読んで分岐 

L $ E E 以上 一 ~> JMP [ 0 2 0 6 ] 即ち $805 A へ 

f $ F 3以下 一" ^ 拡張コマンドジャンプテーブル （ 8 0 4 E 〜 8 0 
$ 8 0 5 A < 5 9 ) よりエントリ番地を取り込んで分岐 

k $ F 4以上 - > J M P [0210] 普通 Syntax Error へ 

いずれの場合も， X レジスタに ジャンプテーブル先頭 （$7330 もしくは$8 
0 4 E ) を入れ， A レジスタから $E 8 もしくは $ED を引いて， $ C 69 C に 
入り [ ft : します.コマンドの種類を問わず，$ D 2 ル ー チンによって 中間コードに 
続く 丨 文字を A レジスタに読み込んでから， 各処理系ルーチンへ分岐しているこ 
とに注意して下さい.一方，ジャンプテーブルは次のようになっています. 


习 2 • 3 • 11 ジャンプテーブルの様子 


S 8 

A 

D 

A 

8 FD 0， 

A 2 0 3 t 

A 2 C 7 , 

9 0 A 0 r ■ 

■.… E B 9 A t 

E 3 BA (8 B 71 番地) 





END 

FOR 

NEXT 

DATA 

KILL 

INTERVAL 






(81) 

(82) 

(83) 

( CA ) 

( CB ) のエントリ 

$7 

3 

3 

0 

7 3 A 1 t 

7 5 6 5, 

7 C E 6 , 

7 D 4 E , 

7 D A 8 , 

7 DA 7 (733 B 番地) 





DSKINI 

DSK 0$ 

NAME 

FIELD 

LSET 

RSET 





(コード E 8) ( E 9 ) 

( EA ) 

( EB ) 

( EC ) 

( ED ) 

$8 

0 

5 

A 

8 0 8 E f 

8 4 4 8, 

C D 8 8, 

9 A 7 F , 

EBBA t 

EC 7 2 (8059 番地） 





CHAIN 

ERASE 

LUST 

LPRHMT 

SOUND 

P し AY 





( EE ) 

( EF ) 

( FO ) 

( FI ) 

( F 2 ) 

( F 3 ) 


すべてのコマンドについてこの頁に載せることはできませんので，図中のコマン 
ド以外のエントリについては，6 — 4節を御参照ドさい. 

それから， PEN コマンドは現在のところ使用不可能であリ， PEIN 用拡張フ 
ツク （0257 〜 0259) には 「JMP $ C F 0 A (Devic Unavailable エ 

ラー. エントリ）」 が書かれていますが， ここに， ユーザの作った任意の マシン 
語処理ルーチンへの J MP 命令を書き込むこと によ って「ユーザ定義 コマンド」 

としての意味を持たせることができます. 

最後に， 暗黙 END 処理 部について触れておきます.テキスト（もしくはテキ 
ストバッファ上）のプログラムを実行中にリンクポインタを読み込んで，その値 
が$ 0 0 0 0 であった場作，プログラムテキストは ここで終わり となっていますの 
で，実行を中止する必要があります.この場合には， END ルー チンの途中へ分 
岐していきますが，この際，オープン中のファイルのクローズは行わないことに 
注意して下さい.このため，エラー処理ルーチン内でこのような 暗黙 END とな 
った場合には，特に警告として 「Error Without Resume 」 エラーで終わるよう 
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なしくみになっています.また， END ルーチンは ， STOP •ブレーク処理を 
かねているので，両者の区別をするために内部で キャリー フラグのクリヤ/セッ 
卜（クリヤが END / セットが STOP •ブレーク）を行っていますから，暗黙 
END として途中から入る際にキャリーをクリャして入る必要があります.以上 
の操作をしているのが，$ C 6 DB-C 6 E C の暗黙 E N D 処理部です. 

それでは ， 「lOuTRON ^ 2 O ^ TROFFj といった簡単なプログ 

ラムの実行例で，解読実行ルーチンの働きを追ってみます.テキスト上には次の 
ような中間言語が書かれています（番地は標準 ROM モード時の値です）. 

$078 F ：00：0796： OOOA ：90：00：079 C ：0014：91：00：0000 

これを， 「 RUN 」 によって実行させた場合，次のようになります. 

まず，$ 0 7 8 F の$ 0 0を見て，初めの行のリンクを読み，次いで行番号を 
読み込みます.最初は トレースモード フラグが立っていないので，トレース処理 
は行わず，次のコード$ 9 0を読みます.基本コマンドの一つですから， X レジ 
スタにはまず （1 F 2 :1 F 3) の値=$ 8 ADA が入り，続いて ， A S LA で 
A レジスタの値は$ 2 0となります.これが X に加えられて$ 8 A F A となり， 
この $8 AFA には TRON コマンド処理系のエントリ番地=$ A 01 A が書か 
れていますから，結局，$ A 01 A 番地に制御が移ることになります. RTS 命 
令で T RON 処理から戻った後，再び同様の処理が繰り返されますが，今度は， 
TR ON によってトレースモードフラグが立てられていますから， ▼ [▼， 

0 ▼ (現在の行番号）， ▼] ▼が表示されます.次いで，中間コード $91 が読 
み込まれ，先程と同様にして $ A 0 1 B 番地 （ TROFF 処理系）へ分岐します. 
最後に，$ 0 7 9 C のリンクポインタ=$ 0 0 0 0 を見て， 暗黙 END へ飛びま 
す.そして， E ND ルーチンを 通って$ 8 E 7 2 番地に入り， 「 Ready 」 表示と 
なるわけです.このとき，丁 RO FF によってすでに，トレースモードフラグは 
クリャされています. 

ところで， TRON , TROFF の処理系がどのようになっているのかは次の 
リストを御 I 覧下さい. 


H 2 • 3 ■ 12 TRON , TROFF 処理ルーチン 


TRON ( A 01 A から入った場合） — TROFF (A 01 B から入った場合) 


$ A 01 A 8 

广 

D 

4 F LDA 

料 4 F 

$ A 018 4 F 

CLRA 

9 

7 

A 9 STA 

$A 9 

97 

A 9 STA $A 9 

3 

9 

RTS 


39 

RTS 


左右をよく見比べてみると，5バイトのみで，2つのコマンドの処理をしている 
ことがわかります.このように，1番地エントリをずらすことにより，フラグの 
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セット/クリアの2つの勋作をまとめてしまうという力•法は，よく用いられる高 
等テクニックですので十分现解しておいて下さい.ただし，アセンブラ泣かせの 
テクニックであることもお忘れなくガ 

2 — 3 — 6 Break キーチ エック ルーチン 


アドレス」 $ D B 5 9 〜 $ D B 6 B 

機 能 I ブレーク•キーの押下をチェックし，押下が検出されれば，音関係 
の初期化をして Break ルーチンにジャンプする. 

レジスタ ] D , C C 

WOR ( 0 3 1 2:0 3 1 3 )=ブレーク • キー押下フラグ (F I RQ で) 

S U B I $ 0 2 9 0 ^拡張用 I セット . } 

$ E C 0 5—一>音関係の初期化ルーチン 
終了条件| (0 312 : 0 313) = 0なら，何もしないで Return する. 

( 0 3 1 2:0 3 13 ) ヂ〇なら， SEC 05 を呼び， （0312: 
0 3 13) をクリアして $8 FD 7 ( Break ルーチン）へ飛ぶ. 


2—3—7 音関係の初期化ルーチン 


アドレス I $ E C 0 5〜$ E C 13 

機 能| FM — 7の持つ音関係の初期化をするもので主な動作は次のものです. 
( D $ EC 4 D で P L A Y 文が使用するカセツト用バッファ（カセット • PLAY 


兼用）と PSG の初期化をします. 

( D $ E C 2 7〜$ EC 2 8に BEE PuOF F 用の R C B が格納されており， 
れを使用し B 丨0 S を呼び出して BEEPuOFF します， 

③ P LA Y 文では T I ME R の割込みを使用してバッファ内に蓄えられたデータ 
を PSG に出力しているので， $ECIB を呼び， TIMER 割込みを禁止す 
ることで， PLAY を実行させない様にします. 


④ F フラグと I フラグのマスクをイネ ー ブルにします （ANDCC # $ AF ). 
レジスタ| A ， B ， X ， Y ， U，CC ( CC 以外は全て保存） 

WO R K I $〇〇 DE— ^ >B I OS ジャンプ ルー チン 

$ E C i B ―> I RQ 割込み制御ルーチン 
$ E C 4 D —— >PLAY バッファ， PSG の初期化ルーチン 
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第 3 章 システム的コマンドとそのサブルーチン 


3—1 NEW コマンド処理ルーチン 

——テキスト消去 • 変数消去•各種の初期設定を行うルーチン 


ァ 

ド レス 

機 

能 


( 1 ) 


S 8 F 3 2, 39, 4 B , 51, 70，82，91〜 $8 FBB 

次の ように7 つの ブロックに分かれ，各エ ン トリに 対応 します • 

8 F 32〜 38— 構文チェック/ファイルクローズ （ NEW コマンド) 


(2) 8 F 39 〜 4 A — テキスト消去など 

(3) 8 F 4 B 〜5 0—読込ポインタ （ D 9 : DA ) の初期設定 

(4) 8 F 5 1〜6 F — 変数消去など （C L EAR コマンドに相当） 

(5) 8 F 70 〜81 — エラー関係の初期化/乱数初期化 

(6) 8 F 8 2〜9 0 —>S P の初期値設定/ CONT アドレスのクリア 

(7) 8 F 9 1〜 BB — 文字列作業領域 （ SAC 1〜1 0) 初期化など 
入力情#$ 8 F 91 (7) からエントリする場合には， X レジスタにリタ- 

ンアドレスを格納しておく. 



解説参照 

$ 9 2 A 0 -^Syntax Error エントリ 
$ C E 8 1— すべてのファイルを クローズ する ルーチン 


$ 8 0 EB—CHA 丨 N 後処理ルーチン 

$ D 4 9 8 -^BAS I C 割込 （ COM , KEY など)初期化ルーチン 
$ 8 FC 9 —>DATA • REST 0 RE ポインタ初期化ルーチン 
$985 0— 文字列ゴミ化ルーチン 

^「ゴミ 化 j については， 2— 2 節 内の 文字列 変数の説明を参考にして下さい. 


解 説 I 各エントリは ， BAS IC インタプリタ内では次のように使い分け 
られています， 

$ 8 F 3 2 ( 1 )— EW コマンド処理の入口 

$ 8 F 3 9 (2 )— BASI C 起動時（コールドスタートルーチン）および 

LOAD 実行中にエラーが発生したり Abort がかかった 1 ) 
した時にコールされます. 

$ 8 F 4 B (3) —RUN g の時の初期設定用や ， D E L E T E 処理 • し 0 

A D 処现が終わった後に呼出されるエントリです. 

$ 8 F 51(4 )— C し EAR コマンドの最終処现ルーチンとして，また， 

「RUN 行番号」や R E N UM の処理前後にコールされ 
る場所. 
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$ 8 E 7 0 (5 )— CHAI N 後処理ルーチンからの エントリ. 

$ 8 E 8 2 (6) — > Abo パル ー チン からのエントリ. 

$ 8 F 91(7)—> エラ ー 処理 ルー チ ン から コー ルされる場所. 

そして，あるエントリから入った場合には，それ以後の処现をすベて行います. 
従って， （ 1 ) から入った場合は （ 1 ) 〜 （7) の処现を全部行うのに対して，例えば， 
(4) から入った場合は （4) 〜 （7) の処理だけを行う，という具合になります.そ 
れでは，各ブロックごとに兄てみます. 

( 1 ) 構文チヱックは，テキスト上の N E W コマンド の一文が完結していて ゼロ 
フラグが立っている（即ち，最後の文字が N U L L かコロンになっている）かど 
うかをチヱックするもので，完結していなければ 「Syntax Error 」（ $ 9 2 A 0 ) 
を発屯させます.実際の N EW コマン ド処理が始まるのは $ 8 F 3 6 からであり， 
ユーザが マシン 語プログラム上で M 等の処理を行いたい場合には，この番地にエ 

ントリする必要があリます. $8 F 36 〜 38には 「 J S R $ CE 81」が書 

かれており， すべてのファイルを クローズ します. 

(2) テキストエリア： t 姐番地 (3 3： 3 4 ) からの2バイト，即ち，一番最初 
のリンクポインタに$ 0 0 0 0を代入し，次の番地を （35: 36) に格納しま 
す（この操作が テキスト 消去に相当するわけですから， NEW コマンドによって 
誤って消去してしまったテキストは，最初のリンクポインタを修止することによ 
ってすぐに復活することができます）.さらに， トレースモードフラグ （ A 9) と 
プロテクトフラグ （ D 1) をクリアするとともに， U N L I ST 行番号レジスタ 

( 01 E 7 : 01 E 8 ) に $ FFFF を代入します. 

(3) このブロックでは， テキスト先頭 （33 : 3 4 ) マイナス1 のを 読込ポ 
インタ （ D 9 : D A ) の初期値として設定しています.行番号も FD も指定され 
ていない時の RUN コマンドは， （2) 〜 （7) の処理を終えてから， 即， RTS 命 
令で‘ 解読実行ルーチンへ 飛びますので，この設定は 屯 要な： S 味を持ちます. 

(4) まず最初に CH A 丨 N 後処理ルーチン （$8 0 EB ) を呼出しますが ， C 
H A I N 实行中フラグ （ 0 5 B C ) が立っていない限り，拡張フック （ 0 2 8 1 
- 0 2 8 3 ) を通じてそのままリターンしてきます.次に， BASIC 割込初期 
化ルーチン （$04 9 8)を呼び， 待機中の割込個数レジスタ （0 5 9 A ) のク 

リア； 割込テーブル （071 E 〜 0777) の初期化 ； P F キー割込の禁止；夕 

イマ割込初期化を行います. 変数消去•変数名の DE F 型指定初期化 も，このブ 

ロックで行います.前者は， (3 B ：3 C )-(3 D ：3 E ) に （35: 3 6 ) の値を 
代入することによって変数エリア内に登録されている変数 • FN ^ 数の情報を無 
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効にしており，後者は，単精度型指定子$ 0 4 を D E F 型指定用テーブル （0 3 
1 F 〜 0 3 3 8 ) に格納することによって 「DEFSNG A - Z 」 に相当する 
初期化を行っています•なお，文法書 3 —1 4良には 「 C L E A R コマンドを実 
行すると全ての DEF 文定義情報は無効になる」と書かれていますが， DEFU 
SR 文によリ定義された情報だけは 有効の ままですので注意して下さい. 

(5) ここでは，エラー RESUME フラグ （ B 1) および 0 N^E R R 0 Ru 
GO TO 行番号 （B 4 : B 5) をクリアするとともに， RND テーブル （031 
8 〜 0 31 B ) に初期値として $804 FC 572 (1 0進数で表してみると 0. 
8116065263748169となる）を与えます. 

(6 ) 非常に重要なブロックで，スタックに積み上げられているデータのうち最 
上位2バイトの リターンアドレスを X レジスタに読んだ後， SP 初期値と して 文 
字列領域上限アドレス （3 F :40) マイナス 1を与え，この値を スタックボイ 
ンタ復帰用レジスタ （ AF : B 0) 初期値として代入し，同時に， 文字列領域と 
の 境界をはっきりさせておくための区切$ 0 0をこの番地に格納します•つ 
まり，リターンアドレス1つを除いた，すべてのスタック情報を破壊してしまう 
わけで， ュー ザがこの処理系〔 ( 1 ) — (6)] を使用する場合には相当注意を 
払わなければなりません.このような事情から ， B A S I C サブルーチン 〔GO 
SUB 文の支配下〕内に NEW • CLEAR を置くのは御法度です.もちろん， 
何重にもネストしているマシン語サブル ー チンからエントリするなど I ( 語道断で 
す//スタック初期化の後 ， CONT 用再スタートテキスト番地 （4 D : 4 E ) 

に$ 0 0 0 0を代入します.この操作によって CONT コマンドが禁止されます. 
( CONT —「 Can’t Contmue 」 エラーが発生）. 

(7) ここでは， SAC と結合している有効な文字列が存在する場合には，次々 
にゴミ化して結合を切リ離して無効にしていき， SAC ポインタ （1 E :1 F ) 
初期値として SAC 0 の番地$ 0 5 7 8 を設定します.さらに， D 丨 M 文実行中 
フラグ （ 1 A ) , LOAD (バイナリ）中フラグ （0 2 F 3) , V A L 関数実行 
中サイン （E 9 : EA ) をクリアした後， RTS します. （7) から入る場合， 

(1) 〜 （6) のような，スタック破壊から受ける制約はありませんが ，X レジ 
スタにリターンアドレスを格納してから エントリする必要があることに気をつけ 
て下さい. 
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3 — 2 RESTOR E 処理ルーチン 


ァ t 

:レス 

機 

能 

レジスタ 

r 入力情報 


$ 8 F BC , $ 8 F C 9 〜 $ 8 F C F 

DATA. RESTORE ポインタ （53: 54) の設定を行う. 

A , B , X , U , CC (キヤリ ーー> 行番号の有無を知らせる） 

A レジスタ =RESTORE 中間コードの次の文字コード 
ゼロフラグ = Areg 内のコードが N U L L •コロンの時セット 


※以上の情報は，解読実行ルーチンから分岐してくる直前で， 
$D2 ルーチンにより設定されます.今後，これらの情報につ 
いては自明のこととして，いちいち断りませんが，各コマンド 
処理ルーチンに入った時には既に次の文字コードが読込まれて 
おり，その属性によってゼロフラグやキャリーフラグがセット 
されているということを常に頭に入れておいて下さい. 

(D 9 : D A ) =現在のテキスト番地 

復帰情報 1 (53： 5 4) =DATA • RESTORE ポインタの更新値 
SUB | $ 9 A 3 A — 行番号定数の評価ルーチン…後述 

$ 8 F 1 C — 行番号サーチルーチン .2 —3 — 4節⑸ 

終了条件1 $ 9 A 3 A で評価された行番号に等しいものがテキスト上に存在し 

ない場合には， 「Undefined Line Number」 エラ-"を発生させる. 


解 説丨 R E S TO R E のコードの後にすぐ N U L 1_ ($00) または コロ 
ン （$3 A ) が続く場合には，$ 8 FC 9 番地に飛んで ， DATA - RESTO 
RE ポインタ （53:54) に テキスト先頭マイナス1 の値を代入します （NE 
W ルーチンからコールされているのもこの$ 8 FC 9番地です）.それ以外の場合 
には，$ 9 A 3 A で評価した行番号を持つテキストの位置を捜し出して，そのア 
ドレス マイナス1 の値を （53:54) に格納します.なお， RESTORE の 
コードのすぐ後に $FE F 2 (行番号定数の識別子)が続いていない場合には， 

$ 9 A 3 A ルーチン内で 「Syntax Error 」 が発生されます. 


<行番号定数の評価ルーチン $ 9 A 3 A ► 

行番号定数の識別子$ FE F 2があることを確認した後，以下に続く定数を 
(4 B ： 4 C ) および D レジスタ内に読込む ルーチンです. 識別子 $ FEF 2 が 
続かない場合には ， 「Syntax Error 」 を発生させます. 
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3 — 3 RUN •GOTO • GOS UB 処理系ブロック 



※この他, 

入力情報1 


復帰情報 


$9 012，$ 9 0 2 D , $9039，$ 9 0 5 5 〜 $9070 

$9012- R U N エントリ 

$ 9 0 2 D —— GO (中間 コー ド$ 8 7 ) エントリ 
$ 9 0 3 9 —— GOS UB 処理系先頭 

$ 9 0 5 5—— GOTO 処理系（飛先番地計算サブルーチン） 
r O N (式 ） G 0 S U Bj のためのエントリ （$ 9 0 2 F ) がある. 
A レジスタ = テキストの次の文字コード 

スタック最上位2バイト=解読実行ルーチンへのリターンアドレス 
GOSUB 処理系では，図3 • 3 • 1の①のようなネスティング情 
報をスタック上に積み上げた後， 「JMP $ C 6 3 Dj で解読実行 
ルーチンへ戻る. GOSU 日の他，ネスティング情報を作成するも 
のに， FOR 〜 NEXT ループ処理系および WH 丨 LE 〜 WEND 
処理系があり，比較のためにそれぞれが作成するネスティング情報 
を図の②および③に掲載しておく.スタック最上位には，3つのう 
ちどの情報であるかを表す識別子として， TSUBT， T FO R T , 
▼WHILE ▼の中間コード（それぞれ，$ C E , $ 81,$ B E ) 
が置かれていることに注目// 


図3 • 3 • 1 スタック上に作成されるネステイング情報 


(I) G 0 S U B 処理系 

新 SP -vSCE( ， SUB T ) + 0 新 SP — 

S 0 0 / G 0 S U B \ : + 1.__ ☆ 

SOD i 文サイ > / | j 

現在の （▼ S U B ▼がミ _ +3 
る）テキスト番地 : 

現在の （ T S U B ▼が あ； + 5 
丨丨る）行番号 j 

旧 SP— リターンアドレス. ！+7 

(S C 6 / E ) ; 


☆ (十]:+ 2 ) のエリアは，「0 N^K E Y 
—G 0 S U B j 等の割込の時に用いられ， 

割込テーブルの先頭番地が格納される. 

旧 S P — 

F 0 R - N E X T 系では / L E A S 一 S 0 2, 

Sj によってリターンァドレスを放棄する,解 
読実行ルーチンへは r 」 M P — S C 6 3 D 」で 
戻る. 


スタック| 
上に7パ I | 
イトの領 - 
域を確保 L 


2 F0R-NEXT 処理系 


S 8 I ( T FOR ”」+0 
制御究数の j + I 

■ a - 

実効アドレス 

FOR 文の終 りの J +3 

■*i 

___テキスト番地の値 

制御変数の型 +5 

(指数部） 1+6 

(仮数部*上） _ 

(" •中） 

("•下） 

(符号） | +10 

(指数部） :+11 

※符号稀退 j 

の変数型 i 

で格納 - 

T F 0 R v が密かれてい +15 
る行の行番号 

. 二 . .■ ..一 .. マ ■ 「. ■ 二 — 1 

+ 17 



3 WHILE 〜 WEN D 処理系 


S B E い 

w 

H 

1 L E T )j 

!対応する ▼ 

w 

E 

N D ▼が 

!あるテキス 

卜 

番地 j 

v W H 1 L 

E 

▼ 

が書かれ 

て 1、る テキ 

ス 

卜 

番地 j 

r W H i L 

E 


か®かれ 

i ている行番号 

|u^ ■ • Mi ■ a ■ ■ 1 am. 墨 ■ r ■. ■ i ■ b i 11 w ■ i 




W H I Lt : 〜 WEND 系でも . 「FOR 
-N E X T j と同樺 .「L E A S — S 0 2. 
S j によつて，リターンア K レスを放棄， 

^ J M P 」 で解読実行ルーチンへ戻る. 
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解 説丨こ の処理系は，3つのコマンド処理系が同居しているブロックです. 

順番に見ていきます. 

( 1 ) RUN . まず，次の文字コ'—ドが入っている A レジスタをスタック上に 

退避させたあと， 音関係の初期化 （$ EC 0 5) を行います. A レジスタを復帰 
させてその値が$ 2 2 つまり 引用符 である場合には， プログラムロー 
ド処理系 （$ CF 2 2> へ分岐します.引用符でない場合には，続いて， 全ての 
ファイルのクローズ （$ CE 8 1) を行います.次の文字コードが 区切文字 （N 
U L L または コロン）， 即ち， 「 RUNj もしくは 「 RUN : XXX 」 であれば， 
変数消去などの初期化ブロック （$8 F 4 B 〜 8 FBB ) へ JMP で飛び，$ 8 
F B B の RT S 命令でそのまま解読実行ルーチンに入って，テキストエリアのプ 
ログラムを最初から実行します.それ以外の時 （「RUN (行番号)」）には，$ 8 
F 51の初期設定をコールした後，飛先番地を,汁算して ， 「JMP $ C 63 D 」 
で解読実行ルーチンへ向かいます（この時，スタックポインタ S P は初期化され 
ている）.なお， $8 F 4 B と $8 F 5 1の違いは，読込ポインタ （D 9 : DA ) 
に， テキストエリア先頭マイナス1 の値をセットするかどうかの遠いだけです(詳 
しくは， 3 —1 節を見て下さい）.また，飛先番地の計算には， （4) の GOTO 処 
理系が そのまま用いられます. 

(2) GO ——次の文字コードが $CD ( T TO T ) なら （4) の GOTO 処理 
に，$ C E CSUB ，） なら （3) の GO SUB 処理系に入ります（どちらで 
も無い場合には ， 「Syntax Error 」 を発生）.この際， $ D 2 ルーチンによって， 
読込ポインタ （ D 9 : DA ) を一つ進めます. 

(3) GO SUB …… B = 4として メモリフルテスト （$8 DAA ) を コ_ルし 
て，8バイトのスタック領域が確保できることを確かめた後， （ 4 7: 4 8 ) およ 
び （ D 9 : DA ) の内容を読込んでプッシュし， 図3 • 3 • 1 の①に示したよう 
なネスティング情報をスタック上に作成します（これは， RETURN 文に必要 
な情報となります).続いて， （4) を用いて飛先行番号を計算してから，解読実 
行 ルーチンへ 戻リます （ JMI ) $ C 6 3 D ). 

(4) GOTO …… 飛先行番号を計算するブロックです （ GOTO 文の場合には 
最後の RT S で解読実行ルーチンに入ります）.まず， 行番号定数評価ルーチン 
( $ 9 A 3 A ;ワークレジスタ （4 B : 4 C ) に行番号を格納）を呼び，ついで， 
非実行文のスキップ処理ルーチン （$90 AB ) によって現在の行の残りを読み 
飛ばし，次の行の先頭番地を X レジスタに入れます.ここで，飛光行番号 S 現在 
の行番号 （4 7: 4 8 ) であればテキスト先頭番地から；飛光行番号 > 現在の 
行番号であれば次の行の先頭（ X レジスタ）から， 行番号サーチルーチン （$ 
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8 F 1 C ) によって，飛先行の先頭番地を検索し，1を引いて読込ポインタ （D 

9 : DA ) に格してリターンします.このような場合分けを行うのは，少しで 
も検索に要する時問を短縮するためです.なお，行番号サーチルーチンで， キャ 
リーが立てられて 帰ってきた場合，即ち，該当行番号がテキスト上に存在しない 
場合には， 「Undefined Line Number 」 エラーを発生 （$ 9 0 8 4 に分岐）させ 

ます. 
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3 — 4 END .STOP. Break 処理系ブロック 


アドレス 

m ~~ m 


レジスタ 


!入力情報 


復帰情報 


[WORK 


S U B 


終了条件 


$ 8 FD 0, D 7， D 9 ，E 1 , E 4 〜$ 9 0 0 1 

$ 8 F D 0 —— E N D 文エントリ 

$ 8 F D 7 —一 Break エントリ （Break チ エツ クルーチ ンより） 
$ 8 F D 9—— S T 0 P 文エントリ 


$ 8 FE 1 —G CURS OR などからの Break エントリ 
$ 8 F E 4——暗黙 END (テキスト終了）エントリ 
A , X ( B , U は E N D エントリのみ使用） 

S ——スタック復帰用レジスタ （ AF : B 0) により補正 

(直前に実行中だった行に入る前の値が復帰される） 
キャリーフラグ ^— STOP • Break / ITTS フラグとして使用 


ゼロフラグー- -E N D 文， STOP 文が完結しているかどう力 


の判定に用いられる 

$ 8 F E 1 , E 4からエントリする場合には，キャリーフラグを立 
てて入るか否かで，最終的に， 「 Break 」 出力 （$8 E 6 3) となる 
か 「 Ready 」 出力 （$8 E 7 2) となるかに分かれる. 

「 Break 」 出力の場合， X レジスタに 「 Break 」 メッセージの先頭位 
置（マイナス 1) の値 $ SD 60 が入る.また，ダイレクト実行で 


なかった場合には，様々な情報がセーブされる.具体的には 
S P には，復帰用の値 （A F : B 0) が一$ 8 F E 4を除く一 
(4 9： 4 A ) には，直前に実行した行番号 （ 4 7: 4 8 ) が， 
( 4 D ： 4 E ) には，直前のポインタ （ D 9 : DA ) の値が， 


それぞれ格納される 


れらは， CONT 文で使用される） • 


上記の他， (4 F ： 5 0) がポインタ （D 9 : D A ) の一時退避用と 
して，また， （ 0 5 9 8) がキャリーフラグ読込用レジスタとして， 
それぞれ用いられる.一方， Break エントリ （$8 FD 7) では， 


フアイル番号 


スタ （ BF ) がクリアされる， 


$ C E 81 —> すべての ファイルを クローズ （END 文エントリ $ 8 


F D 0のみ ； Break • STOP * 暗黙 E N D ではクロ 
—ズが行われないので注意する）. 

E N D 文 • S TOP 文が完結してないと R T S してエラーとなる. 
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3 — 5 CONT コマンド処理系 


アドレス1$9002 〜 $9011 

# W \ (4 D : 4 E ) キ〇なら，その値を （D 9 : DA ) に入れ，さらに， 

CONT 用行番号 （4 9 : 4 A ) を読込んで，実効行番号レジスタ 
(4 7 : 4 8) に入れた後，解読実行ルーチンへリターンする. 

(4 D ! 4 E ) =0の時は， 「 Can’t Continue 」 エラーを発生させる. 


レジスタ| B， X 

入力情報 j (4 D ： 4 E ) = CONT 用のテキスト番地 

(4 9： 4 A ) = CONT 用の行番号 

復帰情報 f (4 D : 4 E ) =0— > 巳 レジスタに 「 Can’t Continue 」 エラー コ 

ー ド $ t 1を入れて，エラー処理ルーチン 
($ 8 DD 1 ) へ分岐. 

(4 D : 4 E ) キ 0— (D 9 : DA ) に （4 D : 4 E ) の内容 

(47:48) に （49:4 A ) の内容 
を入れて，解読実行ルーチンへ. 

WO R K |上記の通り 


解—説 | 3 — 4 節で述べたように ， S T 0 P 文* Break などによってテキス 

トプログラムが止まった場合には，その時のテキスト番地 （ D 9 : DA ) が （4 
D : 4 E ) に，行番号 （ 4 7 : 4 8〉が （4 9 : 4 A ) にそれぞれセーブされま 
すから，この値を読込むことによって実行を再開させることができます.ただし, 
テキストを修正したり ， C LEAR コマンドを 用いたりするなど， NEW ルーチ 
ンの （1) 〜 （6) のブロックの処理を行った場合，スタックポインタが初期化 
されてしまい，実行を再開することは不可能となります，この実行再開不可能の 
サインとして ， N EW ルーチン （6 ) ブロックでは （4 D : 4 E ) に $0000 
を代入しているわけです. 
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3—6 RETURN 


ァ 

ドレス 

機 

能 


$907 


$ 9 0 A 7 


スタック上のネスティング情報を検索 （$ 8 D 6 9) して識別子 ▼ S 
U B ▼を持った情報を捜し出し， RETURN 処理を行う.なお，このブロック 
内には ， 「Undefined Line Number 」 エラーエントリ （$9 0 8 4) が 存在す 
る.また，$9 0八0〜9 0众7は ， D A T A 文 • R E M 文 • E し S E 文などの 
処理系をも兼ねているが，これらについては， 3 — 7 節で述べる. 

A , B ， X， S (内部ループ放棄のための更新） 

(AF : B 0) =スタック復帰用レジスタ 

(この処理系で更新がなされる） 

(D 9 : D A ) =読込ポインタ ） 

(4 7： 4 8) =実効行番号レジスタ」 

$ 8 D 6 9— スタック上のネスティング情報を検索するルーチン 

(識別子 $CE T S U B ▼を持つものを捜し出す） 

$ 9 0 A 8―非実行文のスキップ処理ルーチン 



GO S UB 文を実行した時 
の値に復帰する. 



解 説| $ 8 D 6 9 ルーチンにより， 図3 • 3 • 1の① のような形をした， 
スタック上の情報を捜し出して， GOSUB 実行時の （ D 9 : DA ) および （4 
7:48) を復帰させて，さらに，$ 9 0 A 8 ルーチンを用いて ， GO SUB の 
文が完結するまで（即ち ， NU L L またはコロンが出るまで）読み飛ばします. 
「GO SUB (行番号）」の後ろの地の文には，好きな文字列を書いておいてもよ 
いのは このためです. 割込処理ルーチン （「ONuKE YuGO S UBu 文などで 
定義されたサブルーチン）からの RETURN 文の時には，さらに， 割込の ST 
0 P 状態の 解除を行います.なお ， 「RETURN (行番号） j の場合には ， （D 9 
: DA ) および （ 4 7 : 4 8 ) の復帰は行わずに，$ 9 0 5 3に飛んで，この4 
つの データを読み飛ばし （「 LEASu $0 4， S 」）， $ 9 0 5 5 以下の GOTO 
ルーチンを用いて 戻り先行番号とテキスト 番地を割り出して （4 7 : 4 8) t(D 
9 : DA ) に格納して解読実行ルーチンに制御を移します. 

なお，$ 8 D 6 9で検索する際，内側の ▼ F 0 R ▼および ▼ WH I L E ▼ のル 

—プ情報は（それらが#在すれば）全て放棄します.また検索終了時，識別 
子$ C E 以外のコードが出た場合 「Return Without Gosubj となります. 
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3 — 6—1 スタック上のネスティング情報を検索するルーチン 


1ァト 

ごレス 

i 機 

能 

レジスタ 



$ 8 D 6 9 , $ 8 D 6 B 〜$ 8 0 9 2 

スタック上のネスティング情報を検索し，目的のものを見つけ出す. 
A , B , X (X はこのルーチンの 入口で 「LEA X — $ 0 4, S 」 

によって，スタックを指すポインタとなる） 

( 5 A ： 5 B ) =目的とする FOR 文制御変数の実効アドレス 
スタック上のネステイング情報群 


復帰情報 I 目的とする FOR 文が見つかった場合には，そのループ情報が積み 

上げてあるスタック位置が X レジスタに格納され，ゼロフラグが立 
つ.目的とする FO R 文が見つからなかった場合には，その時のス 
タツク位置にある文字コードマイナス$ 8〗の値が A レジスタに入 
り，ゼロフラグがクリアされる. 

涵了条件」識別子$81 (▼ FOR ▼) を持つもので目的とするものが見つか 

らないうちに，$ 81でも$ BE ； ( T WH S し E ▼) でもないコー 


ドを頭とするスタック情報が現れると，ゼロフラグをクリアして RTS . 


解 説 | FO R 〜 N E XT ループ用のスタック情報には，ループで使) U する 
制御変数の実効アドレスも積まれますので， （ 5 A : 5 B ) に年えた 実効アドレス 
をキーコードとしてスタック情報を検索すれば，目旳とする F 0 R 文ループ情報 
を搜し出すことができます • 例えば， 「NEXTuI %」に対応する FOR 文 「F 
OR^I %=1……」のスタック ft 幸段を，制御変数1の実効番地を手がかりに 
捜し出したりするために，このルーチンが用いられます.制御変数名が明示され 
ていない N E XT 文の場合は， （5 A : 5 B )=$ 0000としてからこのルーチ 
ンに入ってくるようになっており，この場合には，識別子 ▼ FOR ▼を持った情 
報が発見された時点でリターンします.識別丫+ ▼ F 0 R ▼を持っていながらアド 
レスが一致しないものや識別子 T WH I LE ▼ を持つものについては読み飛ばし 
てさらに外側のループに対するスタック情報を調べていきますが， ▼ F 0 R ▼で 
も T NEXT ▼でもないコード（例えば， ，S UB” が出てきた時は， A レジス 
夕にそのコードから$ 81を減じた値を入れ，ゼロフラグをクリアしてから ， R 
TS で呼出し側に戻ります. RETURN 文では （5 A ) =$FF としてエントリ 
し，内側のループ情報を全て読み飛ばして放棄するわけです. 
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3 — 7 DATA-REM-E t SE 処理と実行文のスキップ 


アドレス| $9 0 A 0, 9 0 A 3 〜 9 0 A 7 ( DATA 等のルーチン） 

$9 0 A 8, 9 0 A B 〜 9 0 F 0 (非実行文のスキップ処理） 
機 能 | $90 A 0 — $90 A 8 と続く DATA 型のスキップでは ， NUL 

L または地の文のコロンが出るまでテキストを読み飛ばす. 

$9 0众3—$9 0八8と続く R EM • E L SE 型処理では，テキ 
スト区切文字として IN ! U LL だけを認め，これが出てくるまでテキ 
ストのスキップを続ける.同時に， ▼ 1 F ELSE ▼ネステ 

イングのカウントも行う.これは ， I F 〜丁 H EM 〜 E LS E 処理 
系 （$ 9 0 F 1〜91 3 3) で利用される. 

レジスタ丨 A ， B， X 

入力情報 1エントリ番地が最大の入力情報 （D AT A 型 0 R EM*E LS E 型） 

となっている . NU LL は必ず区切文字となる. 

復帰情報 ] 非実行文のスキップ処理ルーチンでは， X レジスタに読み飛ばしを 

終えたテキスト番地（区切文字のある番地）を入れてリターンする. 
—方， DATA - REM-ELS E 処理系（〜9 0 A 7 ) では，ス 
キップ処理ルーチン （$9 0 A 8または$ 9 0 A B ) を呼び出した 
後， X レジスタに入ったテキスト番地をポインタ （ D 9 : DA ) に 
格納してリターン （ RTS ) する. 

[WORKj (D 9 : DA ) =読込ポインタ 

(0011)=区切文字用レジスタ （ B の裏レジスタとして使用） 
(0 0 E 6) =文字定数内フラグ 
( 0 0 9 4) = I F 〜 E LS E ネステイングカウンタ 


解 説 I 非実行文のスキップ処理系には， 数値定数内の$ 0 0 や 文字列定数 
内の コロンなどを区切文字として拾わないように， 文字列定数内フラグ （ E 6) 

を反転するブロックなどの特殊処理部分があります.指定された区切文字 （NU 
LL とコロンの2種，または NULL だけ）が現れるまで X レジスタをポインタ 
として読み飛ばしを続けますが，途中地の文で$ 8 A (▼ I F を発見の際は, 
カウンタ （9 4) をプラス1します.なお， B レジスタに目的コードを入れて$ 

9 0 AE を呼べば，任意のコードを区切文字として読み飛ばしが可能です. 
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3 — 8 LET 文（代入文）処理系 

一"~変数サーチ，式の評価—— 

$9195 〜 $ 91 E 7 ($918 3以降は文字列代入） 

代入文の左辺の変数の実効アドレスを変数サーチルーチン （$95 
0 F ) によって割出し，式の評価ルー•チン （$ 9 2 C 3 ) によって評価された右 
辺の式の結果を代入する. 

入力情報 I 読込みポインタ （D 9 : DA ) = 次の文字のあるテキスト番地 
復帰情報 1 f 数値変数 -^ F A C 1に評価された結果を変数型に変換して格納する. 

I 文字列変数—評価結果の文字列を表す S D を変数本体に格納する . 
「 WORK 1 ( 5 A ： 5 B ) =変数実効アドレス（本体の位置；代入文用） 

(00 17 ) =サーチされた変数の型/ FAC 〗内の数値の型 
(76： 77) = FAC の一部だが，文字列型データの場合には 

評価結果を表現する S D の位置のアドレスが入る. 
(35： 36) =単純変数先頭番地（テキスト最終プラス〇 
(3 F ： 4 0) = 文字列スタック領域終了（上限）アドレス 
( 6 D : 6 E ) = SD の位置アドレスー時退避用 

( 7 E ； 〜8 0) =—時的 SAC ($ 9 7 9 0ルーチンと関連） 
[ SUB ; $ 9 5 0 F —>変数サーチルーチン…… 3 —8—1 節参照 

$ 9 2 9 4— >任意の文字コードチェックを行う ( Breg ) ルーチン 

(等号 ▼ = ▼の中間コード$ E 6の有無をチェック） 

$ 9 2 C 3 —^式の評価ル ー チン . 3—6 — 2節参照 

$ B C C 1 — 強制変換ルーチン （F AC 1を Areg が示す型に変換す 

る） 

$ B 3 3 5 —「F A C 峥変数型」変換（変数代入）ルーチン 

.5 — 2— 6節参照 

$ 0 2 8 7—ディスクモード時の文字列代入用補助ルーチン 
$ 9 7 9 0— Breg の長さ分だけ文字列領域を確保するルーチン 
※この領域に対する S D が'格納されるのが （ 7 E 〜8 0) である. 
$ 9 8 E 4 一^ Xreg で示される番地から Breg のバイト分の文字列を 

$ 9 7 9 0などで確保した領域に転送するルーチン 
$991巳 —X 二 SAC ポインタ （2 1: 2 2) ならば， SAC ポ 

インタ （2 1: 22) と UE : 1 F ) を一3して S 
A C を 一つ 潰す （F A C の pull 操作に相当する）. 
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$9850— X 番地の文字列が文字列スタック領域のものであれば， 

ゴミ化するル ー チン 

$ 8 5 9 7 —ブロック転送 （ X +—> U + ; Breg のバイト分） 

$ 9 8 6 5 — X 番地の S D に対する文字列リンクポインタを格納 

説 |代入文の処理は， 図3 • 8 ■ 〗 に示すようなアルゴリズムで実行さ 
れます.文字列代入は， SAC などに蒂積された，評価結果を表す SD を，変数 
本体に転送した後，文字列リンクボインタを修正する，といった手順になります. 
ただし，文字列スタック領域中の 文字列 と S D とは1対1に対応 （S DO 文字列 
リンク）していなければならないので，文字列を表す S D が変数エリア内のも 
のであって，しかも，その S D の指す文'十:列が文字列スタック上のものである場 
合には，新たに文字列スタック上に領域を確保し（$ 9 7 9 0 )，文字列をコピ 
— ($ 9 8 E 4転送ルーチン）するといった処理がなされています （$9 1 B A 
〜 91 CA ). D I SK モードのときは，もう少し複雑になり， IJ 己以外に， ファ 
イルバッファ中の文字列 であった場合にも，文字列スタック領域に転送してから 
代入いたします. 
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図 3 • 8 •1 代入文 （ LET 文)処理のブロック図 


代入文 $9195 


S 91 AD CMPA 


文字型 
(=$ 0 


Syntax Error 


変数サーチ （S 9 5 0 F) f ' 

変数実効アドレス Xreg—( 5 A ： 5 B ) に格納 I_/ _ 

▼ = ▼のチェック （$E6 —Breg :」 S R $ 9 2 9 4 ) 

変数の型 （ 17 )—Aiieg ; 「P S H S — A」 で，変数の型の違避 

右辺の式の評価 （S 9 2 0 3) J 

「 PULS ^A」T t 変数の型，復帰_ I 

F A C を， Areg で示される型に強制変換 （S B C C 1 ) 


でない時 


数値型（与 S 0 3 ) 

L 8 N E SB3 3 5 


数値代入 (S B 3 3 5 )： F A C— 〔（ 5 A : 5 B)-] 

Tr T S ) 


S D 位置 （ 7 6:7 7 }->Xreg :文字列実効アドレス— Dreg 


R ◦ M モ ー K 時 


D f SK モード時 （ 0287 一 7 FC 4) 


Dreg ^( 3 F ： 4 0 ) 
または 

Xreg <( 3 5:3 6 ) 


文字列の長さしX )—Breg __ 

文字列格納用エリアの確保 （$ 9 7 9 0 ) _ 

エリアに対する S D の位置 （ 6 D ： 6 E )—Xreg 

確保したエリアに転送(文字列コピー）_ 

Xreg= S 0 0 7 E (—時的 SAC の先頭） 


ファイルハへソファ先頭 

( 71 D 8 ： D 9)^0 

< ( 33 : 34 ) 

または 

D>{ 3 F ： 4 0〉かつ 

X S ( 3 5 : 3 6) 

すなわち，ファイルバッフ 
ア上の文字列も転送を行う 


S 91 D 0 


M P 5 9 8 6 


7 


Dreg く （ 71 D 8 ： D 9 )or ( 3 3 ： 3 4 ) ^ Dreg 


Dreg^( 3 F ： 4 0 ) or Xreg く （ 3 5:36 


S D の位置アドレス （Xreg〉—（ 6 D : 6£) に退避 
S D が S A C のものなら， S A C ポインタをデクリメント（一 3) する 
Xreg 一 （ 5 A : 5 B ) として，ゴミ化 （ $ 9 8 5 0 ) :古い変数データを消去 
Breg= 3 (バイト数）として，ブロック転送ルーチン S 8 5 9 7により （ 6 
D ： 6 E ) の場所にある S D を （ 5 A : 5 B ) の変数本体に転送 


S 91 E 


文字列リンクポインタの修正 （ $ 9! 8 6 5 ) 


R T S 
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3 — 8—1 変数サーチ ー変数の検索•登録などを行う ルー チ ンー 

アドレス | $ 9 5 0 F , 12，14 ($ 9 4 C E 〜$ 9 7 2 B ) 

m , _ m _\ $95〇 f ——最も一般的なエントリで，代入文•式の評価をはじ 

め，ほとんどの処理系がこのエントリを用いる.単純変数•配列変数の各要素な 
どはこのエントリからの処理によって全て参照することができ，各要素の実効ア 
ドレス（変数のデータ部の先頭番地）を X レジスタおよび （58 : 59) に格納 
して戻る. 

$9512 —— D IM 文用のエントリで， B レジスタに0以外の値を入れてこ 
の番地をコールすることによって ， D I M 文実行中フラグ （0016) が立ち， 

D I M 文のパラメータとして書かれている配列の登録を行う.なお， D 丨 M 文で 
は単純変数の登録をも行うことが可能であり，例えば 「 D I Mu A %， A % ( 9 ) ， 
B ! , B ! (9 ) j などという文によって， A %(0) 〜 A %(9), B !(0 )〜B 

!( 9 ) はもちろんのこと， A % や B ! までも，初期値0として登録することがで 
きるようになっている. 

$95 14 —— D E F—F N 文_ F N 関数処理系からのエントリです.これら 
の処理系では，添字評価禁止フラグ （ 1 A ) に$ 8 0を入れて呼出してきます. 
入力情報 | (001 A ) =添字評価禁止フラグ 

$00——普通の処理用で，変数名のすぐあとに左カッコを見つ 

けると，配列変数サーチ$ 9 5 E 6へ分岐する. 

彳$ 01 — GE T @ • PUT @処理系からのオーダで，配列名の 

み検索し，格納番地を X レジスタに入れてリターン. 
、上記以外 一 左カッコを見つけても配列とはみなさず，単純変数用 

の変数検索 • 登録を行う. 

リターンアドレス（スタック最上位2バイト）：この値が$ 9 2 A 
F に等しい，即ち，単項式の評価ルーチン （3 —8 — 3節）から呼 
出された場合には，未登録の単純変数名が出てくると，登録は行 
わずに，値0 (文字列型なら長さ 0) が書かれているエリアの先 
頭番地$ B 2 1 B を X レジスタおよび （ 5 8 : 5 9 ) に入れて戻る. 
( D 9 : DA ) =読込みポインタ 

変数名の1文字目の位置にあたる値を入れておく （ 1文字目が英大 
文字でない場合には Syntax Error 発生というしくみになっている）. 
復帰情報 1最も一般的には，変数の実効アドレスが X レジスタと （58 : 59) 

とに格納される. 
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(1 A )=1 の場合，求める配列変数が登録されていれば，リンク部 
のアドレスを X レジスタに入れ， A レジスタ= 0としてリターンし， 
未登録の場合には， A レジスタ=1としてリターンする， 

(16)=^0 ( D 丨 M 文）で配列の登録を行った場合には，復帰情報 
は特にない. 

また，式の評価からのエントリで，未登録の単純変数であった場合 
には， X レジスタに $ B 2 1 B (前述）を入れて戻る. 


解 説 I 変数サーチルーチンは，次のような各ブロックに分かれます. 

( 1 ) $94 CE 〜 94 FC ——変数名をテキストから読出して，変数名参照用 

テーブル （0568 〜 0577) に積み込むルーチンです. 

(2) $94 FD 〜9 5 05 - アルファべットチェックル ー チン ) 

\刖述 

(3) $ 9 5 0 6〜9 5 0 E ——数字チェックルーチン J 

(4) $9 5 OF ——変数サーチ •メイン エントリ 

(5) $9518 〜 954 6 —— ( 1 ) を用いて変数名を 口ー ドした後，型宣言 

文字や D E F 型指定用テーブル （0 31 F 〜 0 3 3 8 ) を見て，変 
数の型を判断して（0 017)に格納するサブルーチンで 「JMP 
D 2」で呼出し元 （ $ 9 516 ) へ戻ります. 

(6) $ 9 5 4 7〜9 5 6 F —— (8) を用いて単純変数の検索を行うブロック 

で，発見されれば，その実効アドレスを父と （5 8 : 5 A ) に入れ 
てリターン；発見されなければ， （7) へ進むことになります. 

配列変数サーチなどへの分岐は，このブロックの頭部で行います. 

(7) $9570 〜 95 A E ——未登録の単純変数を新たに登録するブロックで 

す.ただし，スタックを調べて式の評価から呼出されていることを 
確認すると，登録は行わず， X および （5 8 : 5 9) に$ B 21 B 
を格納してリターンします.登録が行われた場合には，そのデータ 
部のァドレスを X と （ 5 8: 5 9 ) に入れて返します. 

(8) $95 AF 〜 95 C 6 ——参照テーブル上の変数名と変数 ェリ アのものと 

を比較していき，ェリァ上の1つの変数との一致不一致を検索す 
るルーチンで，一致したらゼロフラグを立てて戻ります. 

(9) $95 C 7 〜 95 D 8——変数の型 （0017)と 変数名の長さから，変 

数識別子を作成するルーチンです. 

(10) $9 5 D 9 〜 9 5 E 5 ——配列変数サーチにおける，添字の評価を行うた 

めのルーチンで，使用している主なサブルーチンは$ 9 2 BE (式 
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の評価十文字型エラーの型判断)， $BC 7 4 (整数型に変換）など 
で，評価結果が負の整数になった場合 「Illegal Function Call 」 
エラーを発生させます. 

(11) $95 E 6 〜966 D ——配列変数サーチを行うブロックです. 

D i M 文中で，既に登録済の配列だった場合， 「Duplicated Def - 
inition 」 エラーを発生させる一方，未登録の場合， （ 1 2) へ進み登 
録を行います. D 丨 M 文でない時，登録済で次元が一致した場合(一 
致しないと， 「Subscript Out Of Range 」 になる）には， （1 
3) へ入り，要求された添字に対する要素の実効アドレスを割出す 
一方，未登録の場合には（丨 2) へ進んで暗黙定義 （ DIM 文によ 
らない配列定義）による登録をした後 （13) へ入ります. 

(12) $ 9 6 6 E 〜96 BB ——配列変数を新たに登録するブロックで ， D ! 

M 文の場合には オーダされた 次数 (添字+1の値）を格納しながら褂 
合わせていき，配列変数エリア内に格納領域を確保します.データ 
部を全部$ 0 0で埋め， リ ンクを計算•格納してリターンします .D 
I M 文以外の場合は， 暗黙定義時の添字10に対する次数$ 0 B と 
なるのが主な違いで，領域の初期化が終わるとリターンせずに （ 1 
3) に進んで，要求された添字に対する実効アドレスを計算します. 

(13) $96 BC 〜9 6 F 0——配列の添字に対する実効アドレスを計算して 

X レジスタと （58: 5 9 ) とに格納するブロックです.例えば， 
「D I MuA (山， d 2 ， d 3 )」 で宣言された配列変数 A に対して， 

「A ( x u x 2 , x 3 )j を参照しようとした場合，実効アドレスは 
〔A (0，0， 0) の位置〕+型* ( xi + di * ( X2 + d 2 * x 3 )) 
なる式で与えられます.添字の順序に注意してください. 

(14) $96 F 1 〜972 B —— （ 1 2) や （t 3) における乗算を実行する 

サブルーチンです. 

これらの処理系によって， 2 — 2節で述べたような構造の変数エリアが形成さ 
れていくわけです. 
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3 — 8 — 2 式の評価ルーチン 


ァ 

ドレス 

m 

V3t 

能 


$ 9 2 0 3, 9 2 0 9, 9 2 CB ， 9 2 C D 〜$9401 

代入文の右辺や関数の引数などに使われている式を評価して，その 


結果を F AC 1に格納してリターンする（文字列式の場合，評価結果の文字列を 
表現する S D (—般的に S A C である場合が多い）が置いてある番地の値を F A C 


1に入れて返す）. 

$ 9 2 C 3——最も普通のエントリ 

$ 9 2 C 9 —— P R 1 NT 文中の TAB () 関数処理系などからのエントリ 
$ 9 2 C B ] ^リカーシブコール（再帰的呼出）用のエントリポイント 
$9 2 C D J 〔呼出直前にピックアップした演算子の優先順位を入れて〕 

入力情報]$ 9 2 CB エントリの場合，ワークレジスタ （005 C ) に直前の 

演算子の優先順位の値を格納して呼出す. 

$ 9 2 CD エントリの場合， A レジスタに直前の演算子の優先順位 




を格納しておく. 

FAC 〗に，式の評価結果の数値； （0 0 17) にその数値の型が 
格納されて終わる. 

F AC 1 (74 〜 7 C ) と，その数値型 （0 0 17) 

FAC 2 (8 2〜8 A ) と，その数値型 （ 0 0 5 D ) 

( 0 0 5 C ) =式の優先順位一時格納用レジスタ 
(00 15 ) =倍精度フラグ 


( 0 0 5 E 


比較演算子ピックアップ • 参照用レジスタ 


( 0 0 8 B ) =F AC 1の符号 ㊉ FAC 2 の符号 

(両 F A C 符号部の排他的論理和； 5章参照） 

(D 9 : D A ) =汎用読込ポインタ 

(B 6 : B 7 ) =ポインタ （ D 9 : DA ) 一 ■時退避用 

(7 E 〜80〉=一時的 SAC (文字列比較で用いる） 

(23： 2 4) =リターンアドレスー時退避用 
※ （ 8 8 6 C 〜8 8 8 F ) に演算子優先順位 • エントリ-テーブルがある 

$ D 2 ルーチン； $ D 8 ルーチン 
$ 8 D AA — メモリ フルテスト 

$91 ED — 単項式の評価ルーチン（次節） 

$ 9 7 4 D — D レジスタに形成された整数型データを最終評価 
$ 9 8 A E — 文字列加算 （ SUB として $9 8 F 4 ，F 8を使う） 
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$ 巳 2 3 6—除算実行ルーチン 
$ B 3 C 0 4符号拡張ルーチン 
$ B A F 7— べキ乗じ）処理 

$ B C 7 4— > 整数化；$ B C C D— 倍精度化； $BCEQ— 単精度化 

$ BCAE — (文字型エラーの）判断ルーチン 
$ BC F 整数型4単精度型 • 型変換ルーチン 

※$ B 2 3 6〜$ BCFF については，第5章を御参照下さい. 

終了条件 |演算子が入るべき所に演算子以外の文字（例えば，文の区切り）が 

あるとき 「PULS PC, Aj でこのルーチンを抜け出す.また， 
リカーシブコール時，スタック上にプッシュしてある演算子優先順 
位が，後から読込んだものの順位以上である場合には， 「PULS 
PC, A 」 によって先の演算子に対する処理を行っていた式の評価 
ル ー チンヘとリタ ー ンする. 


I 解 説| 式の評価ルーチンは， 行番号定数などの若干の定数を除いた，あら 
ゆる引数 （コマンド， 関数のパラメータ）を表現している式の評価を行います. 
第5章に述べてある各種の 数値 演算 処理系 や 文字列 演算などへの分岐を行う同令 
基地でもあります. 

さて，数式中の 演算子には優先順位が あって，例えば，「乗除算 （*， /) は加 
減算（+， 一） よりも先に行う」などといった規則体系となっています. 

前から順番に評価していくだけのことならば，単純なアルゴリズムで済みます 
が， 演算子の優先順位を 考盧して演算の後先を判断し，さらに，関数处理やカッ 
コでくくられた項の処理までも行うとなると，非常に複雑なアルゴリズムが必要 
となります.これらの問題は， リカーシブコール （再帰的呼出；あるルーチンが 
自分自身をサブルーチンとして呼出すこと）と呼ばれる手法を用いることによっ 
て解決しています.リカーシブコールというのは ， P A S C A L などの高級 H 語 
で好んで用いられる手法ですが，このようにインタプリタが中間言語を解釈して 
実行に移す上で必要不可欠なものです.それでは， 図 3 • 8 _ 2に，式の評価ル 
ー チンのアルゴリズムの流れを表すブロック図を掲げます. 

優先順位の判定をスムーズに行うため，リカーシブコールの瞬間（呼出直後） 
に，先に読込んだ演算子の 優先順位を表す値をスタック上にプッシュ しておきま 
す.優先順位を表す値は，$28 CIMP T )〜$7 F (▼八▼べキ乗）の範 
囲にあり，後から読込んだ演算子に対する値と，スタック上の値とを比較するこ 
とによって優先順位の判定を実現しています.もし，後からの値の方がより高位 
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図 3 • 8 _ 2 式の評価ルーチンのブロック図 


S 9 2 C 3 ( ポインタ （D 9 ： D A ) デクリメン 


優先順位の区切$ 0 0をとる 


S 9 2 C B 


*$9200 


※演算は◎で代表させてあります. 
效「リカーシブ」と害いてあるのは 
「リカーシブコ_ル（再帰的呼出）」 
の略です. 


9 2 C D ( 優先順位をスタックにプッ 


フンユ 


D 4 ( 颗式の言糊 （S 91 E D ) 


リ カー シブ コール 用 

エントリ 


再び演算子をサーチ 


演算子 サーチ 


比較演算子 


優先順位判定 


2項演览子 


t yes (後)专(•先) 
^優先順位比較 y ^- M ( 

{ (後）〉（先 ）V 
$ 9 3 2 9 fr A C 1型判断） ▲ 



リタ- 


S 9 4 3 E 、 
S 9 4 6巳 


数値上彌■"… 

四則演算 (S 9 3 
4 4) をコール 

ノ 


文字列膝 ( 5 9 4 6 8) 



文字列の 


3 9 8 4 E --^( 文字列最終 lf ®( S 9 7 A D ) 


S 9 3 9 E 



べキ乗 


F B C 1 
単精度化 


F A C 1 
プッシュ 


リカーシフ 
S 9 2 C B 


各処理系のエントリ読込〕 （$ B D E 0 

一 S 9 3 B B 

整讎算 | $ 9 3 B F S 93 C 


S B A 


1 ... スタックから 
F A C 2にプル 

♦ 

べキ乗処理糸 J - 


S 93 C 4 S 93 B D — 9 3 8 4 


$ 9 3 8 0 

論理演算 
¥ A N DV T 0 


F A C 1 
整数化 


F A C 1 
プッシュ 


リカーシブ 
S 9 2 C B 


FAC 10 F A C 2 
交換(出現 J 1 に） ■ 


( SBC 7 4)( S 93 E 8 


OR 


S 9 3 B F ( F A C 1 整数化 


四則(比較)演算 
[+， ' * ノ;比較] 


S 9 3 B 4 


F A C 1 —Dreg 


スタックから第1引 
数を F A C 2にプル 


整数除算系 
F A C i 0= F A C 2 


3 9 3 4 4 


F A C 1(演算子の左側の評価結果) 
をスタックにプッシュ （ 9 3 E 8 ) 


S 9 3 4 7 


リカーシブコール （$ 9 2 C B ) によつ 
って演算子の右側を F A C 1に評価 


M 論理演算処理系 ( Dreg ) 
l F A C 2 ©'Dreg 

- - ——■一 - - 〆 

S 9 3 B 6 の 「J S R_,Xj 

によってコ_ルする. 


Dreg — F A C 1 
整数型宣言 


S 9 


S 9 3 4 A 


| F A C 2にブル 

F A C 2 が 

-—…督 

j F A C 1 倍精度イ匕 | 

($9411) 

L j 

倍精度型なら^ 

倍精度フラグセット 

^ J 


3 9 3 5 9 ( F A C 1 の型判断 


〆 


両方整数型なら 


F A C lOF A C 2 


型合せ（精度の高い方に） 


F A C 1 <^>F AC 2 J 

※双方整数型の場合，一度 
しか变換を行わないため 
F A C 1と2の順序が他 
のものと異なる. 


$ 9 3 5 8の r R T S 」によリ分岐 
四則演算-演算の各処理系 

整数： FAC 1 © FAC 2 
実数 ： F A C 2 ◎ F A C 1 


十： $ BD 4 D —： $ BD 3 F 
* ： $ B D 7 3 / ： $ 9 3 C D 

大小比較: $ B E 4 4 

※四則：結果は F A C 1 に. 
※除算 (/) は最後 S B 2 3 6 へ. 
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のものであった場合，さらにリカーシブコールを重ねて後の方の処理を優先して 
行う一方，先に読込んだ方が高位か等しい優先順位である場合にはリターンして 
先の演算子の処观を行います（このリターンは，スタックの位置が狂わないよう 
に， RTS 命令ではなく 「PULS PC ， A 」 によって行われます）. 従って， 
演算子が優先順位の低い順に並んで v 、るような式では，演算子の数だけリカーシ 
ブコールが重ねられることになります.なお，このルーチンの入口 （ $ 9 2 C 9 ) 
では，優先順位の K 切として$ 0 0を収込んでおり，リカーシブコール用の入口 
($9 2 CB と $9 2 C D ;両者の違いは，先に読込んだ演算子の優先順位の値 
を （0 0 5 C ) に蓄えて入るか， A レジスタ 内に置いて入るかの違いだけです〉 
はこの後ろに配置されております. 

式の評価ルーチンのサブルーチンのうち，単項式の評価ルーチン （$91 ED ) 
が特に大きく重要なもので'，演算子をはさんでいる， 変数•関数•定数•カツコ 
でく くられた式などを評価して F A C 1内に結果を格納する役割を ffl っておりま 
す.式の評価ルーチンと中-項式の評価ルーチンとの関係を模式的に表すと，次の 
ようになリます.ただし，2項演算子を ▼ ◎ ▼ で代表させます. 



単項式の評価とリカーシブコールとによって，演算子の両側のバラメータが出 
揃い，種々の前処现が終った後，各処理系へ分岐するわけですが，各処理系のエ 
ントリ番地は， （ 8 8 6 C 〜8 8 8 F ) のテーブルに，優先順位を表す 値とともに 
書かれてお 1 )，その様子を図3 • 8 • 3に記しておきます.注意して欲しいこと 
は， （ 8 8 7 9 : 8 8 7 A ) に:; 露 f かれてし、る $ B E 4 4は，べキ乘 ▼八 ▼ 処理 系の エ 

ントリではなく，比較演算処理系のエントリであることです.べキ乗の場合，優 
: t 順位$ 7 F を見た瞵間にべキ乗前処理ブロック （ $ 9 3 9 E 〜 $ 9 3 A F ) に 
入り，このブロックの最後に書かれている$ B A F 7への J MP 命令でベキ乗処 
理系へと分岐するわけです. 

比較演算子に関しては，少し説明を加えておかなければなりません. 

比較演算子には，▼く' ▼ = ▼， ▼> ▼の3種類があり，重複しないかぎり， 

一時に3種類まで指定することができます. 3種類のうちどれが指定されている 
かをピックアップする処理は$ 9 2 E 1 〜 $ 9 2 F 6で行われ，その結果は，以 
下のように，ワークレジスタ （ 0 0 5 E ) のビット〇〜3に格納されます（各 i ' 寅 
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図 3 • 8 • 3， 演算子の優先順位•処理系 エントリ 番地の テーブル 


アドレス 

S 8 8 6 C : 
6 F : 


7 8: 
7 B : 

7 E : 
S 8 8 81: 

8 4: 
8 7: 
8 A : 
8 D : 


優先順位 

$79 

7 9 
7 C 
7 C 
7 F 
5 0 
4 6 
3 C 
3 2 
2 8 
7 A 
7 B 


エントリ 

S B D 4 D 
B D 3 F 
B D 7 3 
9 3 C D 

$ BE 4 4 
9 4 A 8 
9 4 A D 
9 4 B 2 
9 4 8 7 
9 4 B C 
B E 3 3 
B E 0 C 


( 中間コード S D 9， ▼ + ▼) 
( // $ D A ， ▼ — ▼) 

( // S D B ， ▼ 氺 ▼) 

( // S D C ， ▼ / ▼) 


// $ D E ， ▼ A ▼) 

// S D F , T A N D T ) 

// S E 1, T 0 R T ) 

// S E 2 , T X 0 R T ) 

// S E 3, T E Q V T ) 

// S E 4 , T I M P T ) 

// S E 5 , T M 0 D T ) 

// $ E 6 , ▼ ¥ ▼) 


※し 8 8 8 7 8 番地の S 7 F は，べキ乗の優先順位であるが， 

S 8 8 7 9 〜 A 番地に書かれている S B E 4 4 は，べキ乗処理系の 
エントリではなく，数値型の大小比較演算の処理系 エントリ なので 
注意して下さい. 

兹 2. 優先順位を表す値は大きければ大きい程，優先度が高いわけで， 
べキ乗が最も優先度が高く， ▼ 丨 M P T が最も低くなっています. 

^ 3 . S886C 〜8 D のテーブルに載ってはいませんが， 

比較演算子（▼く ▼ ， ▼ = ▼ ，の優先順位は $64, 単項演 
算子▼ — ▼ (負符号）の優先順位は$ 7 D ， 否定演算 ▼ M 0 T ▼は， 

S 5 A となっています . 
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咸十 



ビッ 


卜が1である時，その5 


，』 丨 / y へ ■ 

刃 W- 


パこ対する指定があったこと 



します). 


図3 • 8 • 4 比較演算子の指定の仕方 



b 2 1 

)1 ! 

bo 

S 0 0 5 C 

〇 

〇 

0 

i 

0 

0 

< 

-— 

> 


比較演算処理系（数値型：$ B E 4 4 ;文字列型：$ 9 4 6 B ) では，（先のパ 
ラメータ> < (後のパラメータ）なら$ 01を，（先） =( 後)なら$ 〇 〇を，（先） 
> (後）なら$ドドを，それぞれ B レジスタに返してきます.この値に$01を足 
して右へ1ビットローテート（キャ 1 )—取込みがカギ）することによって，「く」 
の時は [ llo 叫が,「=1なら 1011101 が,「>」なら 回 IWI がそれぞれ B レジスタの下 
位3ビットに人り（上位5ビットは0)， ( 0 0 5 E ) との AND をとることによ 
って，指定された条件が成立するかどうかを知ることができる（〇なら条件不成 
立）わけで，成立した場合には $ FF を B レジスタに読込んで，不成立の場合に 
はそのまま（既に B レジスタ=$0 0となっている） 符号拡張ルーチン $ B 3 C 
〇を呼出すことにより，前者の場合には「_1」が，後者の場合には「〇」が F 
AC 1 (整数型となるので （ 7 6:7 7 ) の2バイト）に格納されるわけです. 

もう一つ説明しておきたいことがあります.それは，リカーシブコールの前後 
で， FAC 1 からスタック上へのプッシュ （$9 3 E 8) および， スタックから 
FAC 2 へのブル （$9 4 11) の2つの操作が必ず加えられることです. 
これらのサブルーチンを呼出すと，まず，リターンアドレスをスタックから読込 
んで （LDXu , S ++), さらに，ワークレジスタ （2 3: 2 4) に退避させて 
しまいます.次に，前者の場合は FAC 1 の数値，その数値型の順に，図 3.8 • 

5のような形式でスタック上に積上げ，後者の場合はスタックから FAC 2に読 

します（読出したデータの数値型はワークレジスタ （ 0 0 5 D ) に格納される）. 
S P の値を変えましたので，サブルーチンからのリターンは両新ともに 「LDX 
_$ 2 3 ; J MP ， Xj で行います. 
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図 3 • 8 • 5 FAC のプッシュとプル 


1；整数型の場合 


単 m 度実数型 1倍精度実数型 


S P — * 

数値型 S 0 2 

S P 

, , 

(型 ） S 0 4 

L 

S P .-.— 

(型 ） S 0 8 : 

+ 1 

(上位6 byte ) 

,^ +1 

(指数部} 

+ 1 

1 

(指数部） 

■ 一 

+ 2 

i 

(下位6 byte} 

J + 2 

i 

，(仮数部) 

I +2 

3 byte 

拳 上位 

I 

程^ ; 《レ：：：ンし: , ‘：ハ:'，::.フ| 

1 

卜 1 

i 

(仮数部） 



+ 5 

(符号部） 



1 





下位 1 

1 

! 1 

1 


+ 9 

(符号部）| 





i 

h x I 


7 byte 


◄ 実数除算処理系 $93 CD 〜 $ 9 3 E 7 ► 


他の2項演算処理系でも同じことですが，この処理系にエントリする際には， 

FA C 1と FAC 2 の数値型を合わせておく必要があり，そのような処理は分岐 
前に通過した$ 9 3 4 4 番地以下で既に実行済みです. 

整数型で入ってきた時には，双方の F A C の数値を単精度実数に変換 （$BC 
FF ) するために 「FAC 1 OF AC 2」の交換を一度行いますので，演算順序は， 
「FAC 1 /FAC 2」という具合に，実数の場合 （ FAC 2/ FAC 1) とは 
逆になります（この処理系を単独で使用する場合には要注意）. 

両 F A C の符号部の排他的論理和をとって （008 B ) に格納しておく点も重 
要です（第 5 章参照）.この 後 ， A レジスタに FAC 1 の符号を， B レジスタ 
に FAC 2の符号を読込んでから，除算実行ルーチン （$B 2 3 6 ) に 入り， 
「 FAC2/FAC 1 」 を実行します. 

◄ 論理演算ブロック $ 9 4 A 8 〜 $ 9 4 01 ► 

論理演算子を▼◎▼で代表させると， 「（ FAC 2) ◎ ( D レジスタ）」の演算結 
果を D レジスタに格納することになります. 

◄ 整数型データ最終評価 ルーチン $974 C ， $ 9 7 4 

「C LRA ; STDu$ 7 6 ; LDAu# 2 ; STAu$ 17; RTSj とい 
った手順の処理が行われます（後の 3 命令は$ B C A 0 以下にある）. 
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3 —8—3 単項式の評価ル ー チン 



$ 91 E D ($91 E 8 〜 92 BD ;$ C 5 E 2 〜 C 6 3 C ) 
変数•関数•定数 • カツコでくくられた式などの実効値を評価して， 
FAC 1内に結果を生成する•式の評価ルーチン （$9 2 C 3) と対の関係にあ 
るルーチンであり，その関係は前節で述べたとおりである. 

F A C 1とその数値型レジスタ （0 0 17) 



(0 0 AC ) 


エラーコード • レジスタ 


(A D : A E ) =エラー行番号 • レジスタ 
(D 9 : D A ) =汎用読込ポインタ 
( 0 2 7 2—)=拡張フック （3 バイト） 

( 0 2 7 8—) = // 

( 0 2 7 E 〜）= " 

sub ] _外部ルーチン（リカーシブコール：$ 9 2 C 3, CD ) 

$ 9 4 FD — アルフ アベッ ト チェック 


$950 F — 変数サーチ 
$ 9 7 4 D — Dreg 内の整数データの最終評価 
$979 B — 文字列読出 

$ 9 9 BC — 第2引数の評価用 （M ID $等の前処理用） 

$ 9 9 F 4—ポインタ （D 9 : D A ) の復帰（文字列処理用） 

$ 9 E 7 E — &定数の読出 • 評価 
$ A 8 2 A—F N 関数処理系 
$ A 9 A 0 — U S R 関数処理系 

$ B 3 01 -> ( Xreg ) 番地の変数型数値を F A C 1に口ード 
$ BC 7 4 —C t NT (整数化； ▼ NOT ▼で使用） 

$ BCA 5, AE — 型判断 （© 数値型エラー，⑱文字列型ェラー) 
$巳 CEO —CSNG (単精度化； ▼ S Q R ▼などの前処理） 

$ BD 1 9 —F AC 彳内の符号無し整数 （ 7 6 : 7 7 ) を単精度化 

(行番号定数， ▼ E R L ▼， &定数などで使用） 
$ BDC 9 — FAC 1の符号反転 ▼ で使用） 

♦汎用性の高い内部ルーチン 

$9288 — 左カッコチェック+式の評価+右カッコチェック 
$ 9 2 8 C 右カッコチェック 
$ 9 2 8 F — 左カツコチェック 
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$ 9 2 9 2 —コンマチェック 

$ 9 2 9 4—任意の文字コードチェック （ B レジスタ) 
※以上のものは，様々な処理系から頻繁にコールされるので要注意, 


解 このルーチンは，式の評価と文字列加算の2簡所からしか呼び出れ 

ませんが，巨人でしかも重要なものとなっています.そのアルゴリズムの概略は 
図3 • 8 • 5に示すとおりですが，1 a 火なわりには中•純な流れであり，この M を兒 
ればほとんど把握することができます. 

さて，$9294〜$ 929 F では，ポインタ （D 9 : DA ) の指す位置にあ 

る文字コードが B レジスタ内のコードに等しいことをチェックする（等しくなけ 
れば 「Syntax Errorj 発生，即ち，$ 9 2 A 0に分岐）処理を行っており，独立 
したサブルーチンとしても使用されますが，カッコチェックをはじめ，様々なバ 
リェーションがあり，それぞれ使用頻度の高いものです.メモリ効率を上げるた 
めに工夫が施されていますので，参考のためにソースリストを掲げておきます. 
ユ— ザ.プ幻 グラムの中で， コ ンマチェックと式の 評価 または変数サーチを組合 
わせることによって ， E X E C 文に引数を持たせることが可能です. 

51； 9 2 8 8〜$9 2 A 4 の ソースリスト 


5 9 2 8 8 

S 9 2 8 C 

S 9 2 8 F 

S 9 2 9 2 
$ 9 2 9 4 


S 9 2 A 0 


8 D 
8 D 
C 6 
8 C 
C 6 

8 C 
C 6 

9 E 
A 6 
3 4 
A 1 
2 6 
0 E 
C 6 
7 E 


0 5 
3 7 
29 

2 8 

2 C 
D 9 
8 4 
0 4 
E 0 
0 2 
D 2 
0 2 

8 D D 1 


B S R 
巳 S R 
L D 巳 
C M P X 
L D B 
C M P X 
L D B 
L D X 
L D A 
P S H S 
C M P A 
B N E 
J M P 
L D B 
J M P 


$ 9 2 8 F 左カッコチェック 
S 9 2 C 3 式の評価（リカーンブ） 

¢329 右カッコ ▼)▼ 

社… . \ 次の2バイトをスキ 

二 S 28 左カッコ ▼(▼ ッブするためのダミ 

/ 

竹 …. J ' ~~ np ~n 


t ? S 2 C コンマ ▼ ， ▼ 

$ D 9 ポインタ読込 

，X 文字コード読取 

B 


， S + 

S 9 2 A 0 
S D 2 

其 S 0 2 

S 8 D D 1 



Br eg に入っていたコードと等しいか？ 

ーホインタ （ D 9 : DA ) をインクリメント 

してリターン 


Syntax Error 発生 
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▼ N 0 T ▼ の優先順位 ^ リカ—シブ 
S 5 A を Areg に持って S 9 2 C D 





X キスト F A c 1 


6 7 

7 7 

s S 


MIM 
〇 〇 
c C 
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単項式の評価ルーチンのブロック図 （ 2の2 


s c 


〜 S F F 巳 4 v L P 0 S ▼ の処理 


J M P 


,拡張フック 


ルーチン； A —* B (次のコードが Breg 


T S G N 


D A T E T 


M P^LS 0 2 01 J :拡張関数の処理 


T SGN ¥ - 1 F PEN ir 
(1 引数の関数） 


J S U 9 2 8 1 

左カツコチ x ック 

式の評価 

右力 V コチ X ック 


s ^ R 単精度化 

. atnt ( bceo ) 


※拡張フック 
( 0 2 7 8〜 A ) 


R N D 


DATE ， （引数なし） 


各処理系コール 


NSTR T STR I NG ザ 


左カツコチェック 


S T / v LEFTS T / ir R ! GHTS ， 


第2引数読込；引数プッ 


ツンユ 


E カツコチェック 


式の評価 


コンマチェック 

(39292) 


最終評価：数値型一 S B C A E ; 文字型— S 9 7 A D 


K 関数か？ } 一一 ►{ -DSKIS ▼か？ 



」 M P 
[021 


7 \ 

各処理系 

コ _ ノレ 

^- 


(式）： $ 9 2 8 8 


0 S ▼か？ 


yes 


各処理系の 


リ番地が書かれているジャンプテーブル 


3 B E 
G N ) 






K F ) 
4 7 


B 4 7 2 
(i N T ) 
7 C 3 D 
(C V i ) 


B 3 D 5 
(A B S ) 
7 C 4 0 
( CVS ) 


* * * * * 


E 19 0 

〔DAT E 処理系） 

7 5 A 4 

〔 D S K I S 処理系 ) 


P 0 S 処理系 ) 















人出力主 


4—1 入出力とファイル 

FM — 7のコンピュータ本体（キーボードを除く）と，周辺装置（以後“デバ 
イス”とも記します）とのやリ 1 R りは， CRT への出力の一部を除けば，金て同 
じサブルーチン， K じ形式で扱われます. 

ここで，周辺装置とは，キーボード，スクリーン，カセット，フ°リンタ，ディ 

スク ， R S — 2 3 2 C などを指し，答々” K Y B D : ”， （< S C R N : ”， te C A 
S 0 : ” ， 'LPT 0 : ” ， t! 0 : ” 〜 M 3 : ，’ ， ，! C 0 M 0 : ” 〜 K COM 4 : ， 

というデバ'イス名を持っています （ 文法齊2 • 8参照). 

文法:, if の2 • 8節を兄ればわかるように，ファイルディスクリプタを必要する 
B A S I C のコマンド.ステートメントは，ファイルという概念で剧辺装;％を統 
一し，各々のデバイスに対しての考虛はなされていません.コマンド•ステート 
メントの処现系が，デバイス名を手がかりに，デバイスに応じたサブルーチンを 
呼び出すところで初めてデバ•イスが選択されます（一部のものは，デバイス名を 
見た点で考虛されるものもあります）. 

このようにファイルを導入すると周辺装茜の違いをあまリ意識する必要がなく 
なるので（ただし，入力と出力で若干の違いが出てきます），入出力の大部分は， 
ファイルという形で扱われています（プログラムも当然プログラムファイルとい 
うファイルで扱われています）.そこで，この節では，ファイルとファイルデ ィス 
クリプタを中心に入出力の形態を捉えていくことにします. 

4-1-1 ファイルとシステムファイルディスクリプタ （ SFD ) 

ファイルとは，「入出力媒体上の論理的なデータ態介」（文法書た 8) の 
ことを指しますが，問辺装置とのデータのやり取りをするために設けられてい 
ます.プログラムもデータもすベてファイルという形で捉えられ，ファイルディス 
タリプタで指定されたデバイスとの間で入出力を行います.キーボードやスクリー 
ン，ブリンタなどは,- - W •その性格が希薄なようですが，それらのデバイスとのや 
リ耳乂リも，やはリファイルとして扱うことができます.例えば， 「 SAVE”SC 
RN : ”J という命令も nj ■能です (「LOAD M K YBD : ,, j は不可能です）. 

さて，ファイルの属性を記述するものとして ファイルディスクリプタ （ FD ) 
があります . B A S I C の コマンド やステートメントで⑴いたファイルディスク 
リブタは，デバイス名やオプションやファイル名を記述していますが，これをも 
とに B A S I C インタプリタは，内部の処理系が使うためのファイルディスクリ 
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SFD (システムファイルディスクリプタ）の構成 




ディスクでない場合 （ ビット 7 = 0 ) 
デバイス番け $ 0 K Y B D (コン ソー 

$ 1 S C R N 

$ 2 C A S 0 

$ 3 L P T 0 

$ 4 COMO 

$ 8 COM4 


ip t "i fy 


デイスクでない 
デ f スクである 


ディスクの場钤 <ビッ 
7ァイル八ッファ番号 

I ： it 0 


4f -H* 


D (システムファイルディスクリプタ）テーブル 






漂:ザ•用： コン ゾールへの 入出力 
として使用され,値は$ 〇 〇が 
定常的に入っている. 


ユーザ ) |j のフ T イルに， 1 〗てられる， 
OPEN されていないときは， 





$ 0 









プタを ワークエリ ア上に設定します. 

このため，前者のファイルディスクリプタと後 ti •のファイルディスクリプタと 
を，異なるものとして識別する必要があ 1 )ます.そこで，本^では，後者の BA 
S I C インタプリタで使うファイルディスクリプタを システムファイルディスク 

リプタと呼び S F D と略します. 

S FD は，その ファイルが アクセスしている), V] 辺装鹊が何であるかを記述する 
ものであり，また，ディスクをアクセスしているヒきには，どの ファイルバッフ 
ァ （後述）を使)11しているかを示します.加えて，その ファイルが， 入力として 
使われているのか，出力として使われているのか，ディスクの場介はさらに，ラ 
ン ダム ファイルと してその ファイルバッファを 使っているかどうかを/ j ;- します. 
従って， SFD よリ，その ファイルが ビのような オープン 状態であるか，あるいは, 
その ファイルが 才ー フン しているかどうかの判断（オー フン していないときは， 
$00となっています）の基準にもな 1 )ます. 

i つの S F D の内界は，図4 • 1 . 1のようなビット構成をとっており，その 
ビットの構成が前述した内容を持っているわけです.これは，デバイス番号 <0 

2 E G ) とファイルモード （0 2 DA ) の0 R をとって作られます. 

さて，ファイル#号が1から16まで使用川‘能であるということから判るよう 
に，ユーザに対して，ファイルは16個設けられています.そして，その分だけ 
S F D が16個設けられています.その他に2個， システム 用および標準用があ 1 ) 
ますが，標準用は，コンソール入出力（すなわちスクリーンに出力し，キーボー 
ドから人力するという/3；味）川で，沿に$ 0 0が人っています. 

この計18#1の S F D のテーブルは， （ 0 7 () C 〜0 71 D ) の領域にあリ， 
その先頭アドレス$ 0 7 0 C は，ワークエリア （（） 2 B 4 : 0 2 B 5 ) に定数と 
して格納されています.1つの SFD をアクセスするときは，このワークエリア 
の ft にファイル番り-を足してそのアドレスを求めます. BASIC インタプリタ 
では，ファイル番 y •レジスタとしてワークエリアに （00 BF ) を設けていて， 

( 0 2 B 4 : 0 2 B 5 ) の値と，この （ 0 0 B F ) の侦を足して ， S FD (シス 
テムファイルディスクりフタ）のアドレスを求めています（図4 • 1 • 2 )• 

实際に BAS I C 上での動きを兄ることにします.例えば，例1のプログラム 
はキーボードから入力した文字を，カセットへ出力するプログラムですか'，実行 
中の S FD は，1〇行の 「 OPEN 」 で ， S F D # 3 (= $ 0 7 0 F ) にキーボ 
ード入力として$10を， 2 0行の 「 OPEN 」 では， SFD 井14 (二$07 

3 A ) にカセット出力として$ 2 2を，各々設定します.次の3 0行の 「I NP 
UT 」 では， SFD #3 の内容を見て，キーボードからの入力だということを知 
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り，キーボード入力のサブルーチンを呼びます. I 司様に4 0行でも SFD # 14 
の内容を兒て，々セット出力のサブルーチンを呼びます.このように， SFD を 
參照してデータの入出力が} f われます.なお，5 0行の 「CLO S E 」 は ， S F 
D の内容を$00に戻します（図 4 • 1 • 3). 

M ] 10 OPEN" 1 11 ,#3 , H KYBDs u 

20 OPEhTO" ,#14, H CASO:SAMP し E n 
30 INPUT 林 3 , 

40 PRIN 了 #14, A$ 

50 CLOSE 


図 4 


_ 


3 SFD (システムファイルディスクリプタ）の使われ方 



A S 


AS 


4—1 一2 入出力のバッファ 

バッファは，周辺装置への人出カデータを一時的に保管する領域のことを指し 
ますか '， F — BASIC では，次のものが用意されています. 

攀システム入力用 （ 0 4 3 D 〜0 5 3 C ) 

周辺装置から入力したデータは最終的にこの領域に移され，この領域を利川し 
て変数の代人を行い，また，テキストの作成を行います（これらについては， 

2章〜3章参照). 

•カセット用 （05 E D 〜〇 6 E B ) 

カセットとの入出力のために設けられているバッファですか' 「 PLAY 」 でも 
このバッファ妬域を使刖しているため，カセットと 「 PLAY 」 を同時に使川 
することはできません. 
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• RS — 232 C 用 （078 F 〜） 

R S ~ 2 3 2 C の個数により，大きさが変化します. 

また，各々の バッファの 先頭部分には，入出力のサ 
ブルーチンへのジャンプテ ー ブルが されていま 

す （ 1 一 3節参照) • 

•ディスク用 （ ドライブテーブルとフアイルバッファ） 

デ：；7、 クのためのべッファは， R S - 2 3 2 C が人 
ることによってその光頭アドレスが资わってくるた 
め，また，ドライブの数とフアイルバ‘ゾフアの数に 
よってその大きさが雙化するため，メモリのどこに 
存在するかは確定できません（これについては，1 — 

4節に説明してあります.また， 表1.4* I およ 
び 表 1.4.2 には計?):されたアドレフ、が求められ 

ています.次節も参照してドさい）. 

•汎用ディスクバッファ （721 3 — 73 1 2) 

上, L 1 のものは，テキストエリアの前にある バッファ 
ですが， D I S K モードのときは，ドライブテーブ 

ルとファイルバ.ソファに加えて，凡川のディスク川 
バッファか U [(られます.その人きさは，1つのセク 
夕との人出力を彳うため， 2 5 6 バイ I 、 になっていま 
す•バッファが使” j される場合を次に列記します. 

• F A T をドライブテ ー ブルに入力するとき，あるい 
は，ドライブテーブルの内容を F A T に出力すると 
き（これについては次節で述べますが， FAT は 1 
セクタですから， 2 5 6バイトであリ，ドライブテ 
ー ブルは15 8八イトの大きさですから，入出力の 
際，このバッファを利川して調整をはかっています）. 

•ディレクトリ （ファイル名，フアイル形式，フアイ 
ルのクラスタ#号を記憶しているセクタ）の人出力 
および，その変更のとき. 


$ 0 4 3 D 

$ 0 5 3 C 
$ 0 5 ED 

$ 0 6 E B 


$ 0 7 8 F 


そのデバ 
イスがな 
い場合は， 

作られな 

い 


図4 • 1 • 



4 バッファ 


• ID セクタを読み込み ， I D のチヱックを行うとき. 

また，このバッファの前には，ディスク用のワークエリアが$ 71 D 6 - $ 7 
212の問に取られています（一部のものについては， 1— 4 節で述べました 
が，これらのものについてはディスクの節で述べることにします). 
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図 4 


• I 華 


沉用デイスク用バッファ 


$ 71 


$ 


9 


$ 


〇 



I D セクタ 


4—1— 3 ドライブテーブル （ DRVTBL ) 

ドライブテーブルというのは，ディスク用の バッファ の一柯 I で，ディスクよリ 
FAT (File Allocation Table ) を読み込み，この領域で各クラスタの使用状況 
の更新を彳 r い，再び FAT に書くために用いられています ( FAT は，トラック 
1のセクタ1にあります.文法齊2 . ! 0 . 3参照）. 

ドライブテーブルの内容は， 図 4 . 1 • 6 にポしてあります.ドライブテーブ 
ルの第0バイト〇は，そのドライブテーブルをアクセス（呼出し）している ファ 
イルの数を持っています.この第〇バイト n の w が$ 〇 〇のときには，そのドラ 
イブテーブルをアクセスしているファイルがないことを示していますから，ディ 
スクの入出力をする際に，新たにディスクの FAT を，そのドライブテーブルに 
忒み込んできます.また逆に，第0バイト R の値が$ 0 () でないときには，その 
flft だけ，そのドライブテーブルをアクセスしているファイルがあることをポして 
います.促って， FAT をディスクから M み込んであるので，新たに FAT を読 
み込むということは行いません.即ち，眾〇バイト目は， FAT を入力するため 
のパラメータと しても使われているのです. 

次の第1バイト 丨丨 は，変圯冋数を示します.すなわち，ドライブテーブルの内 
容を何回変更したかを示しているのですが,変 UiH 数がワークエリアの ( 0 5 E 
5 )(= 記入レベル）の値以上になると， FAT へ書き込みます.ここで， （05 
E 5 ) には$ 01が設定されていますから，結局，1回ドライブテーブルの内容 
を変必するごとに FAT へ出力することになリます.出力した後は，笫1バイト 
目の値は$ 0 0に戻されますから，このバイトの取り得る値は，$00 (出力済) 
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と $01 (出力嬰求）であると考えることができます.従って，このバイトは F 
A 丁を出力するための パラメータとしても使われて いる ことがわかリます.また， 
第1バイト〜第15 7バイトの間が FAT に出力されますが,出力の際，第1バ 
イト H は$ 〇 〇に設定されています. 

第2バイト〜第5バイトは，未使用です，第6バイト〜第15 7ベイトは，ク 

ラスタの0 ~151に対応して，各バイトの意味は F A T と问様です(文法書2 . 
10. 3参照). 


図4 • 1 • 6 ドライブテーブルの内容 






つのドライフテーフ，レ 



トライブを 7" クセスしている v アイル数： 
ここが • ^ 0 () のときはアクセスしているファ 

イル がな、 、ので，新たに F A T から読み込んで 
、る* 

変 UiN 数： 

n M K ライフテーブルを変〇!_する度に FAT 
に出力される. < () 5 E 5 ) て n 二1と設定して 
いるので.変逛する度に, FAT へ出力す 

る.出ハ後は.$〇()になる. 

外クラスタの使用状況: 

芥バ f 卜は，クラスタの《〜151に对応して 
いる.その意味は,文法,や2 .10. 3で小さ 

れている. 


※[义 I にイ、したように,ドライフテーフルは iiir ,_ s 4個とれ 
るか，それたけのドライブが核統されていない場合は, 
フアイルバッファなどが順次,後ろから t '! ij に詰めらわ 


嶔※ f r A T に 人! I 、 Jj するのは色のついた部分で 
ある.+1バイト II は岀力される際には, 
$〇〇 y)\\iy をとる. 


ドライブテーブルの変更をする場合，即ち， A 4 終的に F A T の変ゼをする場合 
には，次のものがあリます. 

• 「OPEN ”0” 〜」または 「OPEN ( f R ” 〜 j ， 「 SAVE 」 または 
r S A VEMj などで，新しいディスク上のファイルを作る場 

® 「 PRINT # 〜」などで，データがそのセクタに収まりきらなくて，新 
たなセクタを必要とする垛合. 

•「 PUT # 〜」 などで，新たな レコード# 分を指定したため，新たなセクタ 
を必要とする坳介. - 

• 「 KILL 」 などで，既存のファイルを削除するときや 「D S K I N I 」で 
ディスクの内容を初期化する場合. 
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以.1..の場合の例として，例2のプログラムを実行させたときの，ドライブテー 
ブルの推移を 図4 • 1 • 7 に示します. 

例 210 OPEN 11 1 u , #2, 11 0 s SAMPLE 1 11 : OPEN 11 0 11 , #5 ^ M 0 s SAMPLE 2 1 ' 

20 WHILE NOT EGF(2) 

30 INPUT #2 , : PR I NT ft 漆 s PR IIMT A 漆 

40 WEND 

50 CLOSE #2 : C し CJSE ： #5 


図 4 


m • 


ライブテーブルの推移 


ラくブ 


丁 


ル0 


0 P E N_ 0 \ U) 



A 1 


OP EN "0 


o : 


I sos 

+ () 

S 0 2 

+ 0 

S 0 2 

S 0 0 

1 

+ 1 

SOI : 


S 0 0 


_____ - 


———— ■ 



_ 臓 '^~ ■■■ 一 ^ ► 

変更 

L 、 



斧 


FAT ※ 出力の際 + 

S 0 


li ( 






つ 


IMU NT i ：>, 


(> 



o 


S C 

)2 

S C 

)0 


} 切らな 


匕 ‘ 


FA 


CLOSE ^2 


CLOSE ^ 5 


0 


如 



u 


SO 1 

0 

S 0 

1 ! 

0 


4—1—4 ファイル/ くツファ （ F 巳 UF ) 

ディスクに割り当てられたファイルのために，ファイルバッファが設けられて 
います 1— 4 節で述べたように，ファイルバッファのうちシステムランダムバ 
ッファは 「F I E L D 甘0 〜」 川に，ファイルバッファ社社0はシステム川（プ 
ログラムの人出力と 「 DSKINIj ) に用いられます.他の#社1〜#15 
のファイルバッファは，データファイルとして用いられます • たたし， BASI 
C 起動時に設定したファイルバッファ数より多くのファイルバッファをオーフン 
することはできません.また，ユーザは，ファイルをオープンする際にファイル 
番り-を桥定しますが，ファイル# v は SFD の番号を指すもので，ファイルバッ 
ファ浪 v を指すものではありません（ファイルバッファ番りは，そのフアイル番 
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号に対応する S F D が持っています）.例えば，ューザがファイル番号# 9でオー 
プンしても，実際に使用されているファイルバッファは:^ # 3となる場合があリ 
ます.このようにファイル番号を論理的に与えることによリ，少ないバッファを 
効率良く使用することができるのです. 

1 つのファイルバッファは F C B (ファイルコン ト ロ ールブロック） と呼ばれる 

部分と 丨 /〇 バッファと 呼ばれる部分から成り立ちます.このうち， I / O パ'ッ 
ファというのは，実際にファイルの内容が入る部分で，ディスクの1つのセクタ 
に書き込むまたは読み込む内容が格納されています. FCB の部分には，そのフ 
ァイルの厲性が格納されています.具体的には，ファイルモードやドライブ番号 
やクラスタ番号などが書かれています.これについては，図4 • 1 • 8にその詳 


% 4 


馨 


フアイルバツフア 


1つのフアイルバツフア 


C B (ファイルコントロールブロック）の内袞 


(71 D 6：71 D 7) 


(71 D 8：71 D 9) 


(7 IDA ；71 D 8) 


ドライフ 
テーブル0 


ドライブ 
テーブル1 


システムラン 
ダム/乂ッフア 


ファイル 
バッフ7心0 


ファイル| 
I バッファ;:¢1 


ファイル 
バッファ：：:：2 


ファイルパフファ 

ニニ n 一 1 


ファイル 

バッファ 


テキスト 

エリア 


I 

t 


/ 



/ 


271バイト 


■ ! 0 
バッファ 

(256 バイト） 


相対値 


+ 


4 


+ 5 


+ 8 
+ 9 
+ 10 


n は最大15まで 


機能 


解説 


+ 0 ファイルモード；アクセスフラク/ 


S 0 0 
S 10 
S 2 0 
S 4 0 


■ b * + ■ » 


■ 4 • + 釋 ■ 4 


夭使用 

インプットモード 
アウトフットモ ー K 
ランダムモード 

(0—3) 


ドライブ番号 
ファイルが使用しているドライブ番号 
フアイルの先頭クラスタ番号 

( 0 ~ 151 <$ 9 7 >) 


アクセス中（使用中）のクラスタ番号 

(0-1 51 < S 9 7 >) 
アクセス中（使用中）のクラスタ内の 
セクタ番号〈〇〜 7) 

インプットモード時 


の丨/0バンファ中| 
のテ ータの ポインタ 
(0 — S F F ) 


十6 アウトブットモー 


ド時の 


〇バッ 


ファ中のデータの 
レコード長 （SQ 
1 〜 S F F ) 


ランダム モー ドの 
ときは、両方で 
レコード番号を 
示す 




0 ノレンフ7長 

5 010 0 

0パッファの先頭アドレス 


+11 i i つのシーケンシャルレコ ー ドが，途中 
で切れたとき= S F F 

— "-T- ~ rr, - n ~~ ■ 

+12 I 1つのシーケンシャルレコードか，途中 
で切れたときのデータの一時的保管場所 
として用いられる 


13 t / 〇バ v ファ中のデータのポインタ 

14 ( SOOOO - SO 1 00) 
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細を尔しておきました.注意すべき点は， （ FBUF +5) のインプットモード 
のときのデータのボインタと， （ FBUF +1 3 : FBUF + 1 4) のデータの 
ポインタです.インプットモード時は， （ FBUF +5) はアクセスすべきデー 
夕のボインタであり， （ FBUF + 13 : FBUF + 1 4) は残りのデータの長 
さを示します.従って入カルーチンは，1バイトのデータを持ってくるときには 
(FBUF + 5) を ，I /〇バッファにデータがなくなったことを知るときには 

(F B U F +13 : F B U F +14 ) を参照します. 4 — 5 節では （F B U F + 
5) を データポインタ， （ FBUF +1 3 : FBUF +14) を ポインタと 呼び 

区別しています.崁 F B U F はファイルバッファの先頭アドレスのことも示して 
います. 

4 一〗一 5 入出力の ジャンプテーブル 

基本的な入出カルーチンは，デバイスの遗いを考えずに入出力が行えますが， 
それは ， S FD が設定されていることによリます.本節では基本的な入出カルー 
チンが，どのように S FD から各デバイスとの人出力を行うかについて述べます. 

基本的入出カルーチンでは，各デバイスごとの入出カルーチンをサブルーチン 
として呼び出しています.従って，実際には各デバイスの入出カルーチンがその 
デバイスとの入出力を行っています. 

各デバイスの入出カルーチンを呼び出すために，基本的入出カルーチンは次の 
ような方法を用いています. 

( 1 ) そのファイル番号の S FD を見る. 

(i ) その S FD のビット7が立っていれば，デイスク人出カルーチンを 

呼び出す. 

( ii ) その SFD のビット7が立っていなければ⑵以下の動作をする. 

(2) その S FD の下位4ビットが示すデバイス番号を参照し，デバイス分類 

テーブルと 呼ぶ ジャ ンプ テーブルの 先 M アド レスが 格納されているテー 
ブルから，そのデバイス番号のアドレスを彳4る. 

( 3 ) ⑵で求めたジャンブテーブルの先頭アドレスと，基本的入出カルーチン 

が行おうとしている内容とから，ジャンプテーブル内のデバイフ、別人出 
カルーチンのアドレスを見つけ，その入出カルーチンを呼び出す. 
デバイス分類テーブルは 図 4 • 1 . 9に，ジャンプテーブルは 図 4 *1.10 
に，ディスクのジャンプ先は 図 4 *1*1 1に示しました.それでは，実例を兑 
ることにします. 


152 


図 4 •1• 9 


デバイス分類 テーブル 


ワークエリア 

06EC ： 06ED 

06EE ： 06EF 

0 6 F 0 ： 0 6 F 1 

06F2 ： 06F3 

11 — ，一一 —" — 

06F4 ： 06F5 

相対値 

+ 0 

+ 2 

+ 4 

+ 6 

+ 8 ! 

デバイス名 | 

! KYBD (コンソール） 

S C R N 

C A S 0 

L P T 0 

(COMO) 

；デ^シ f ス番号； 

0 

1 

2 

3 

L 

アドレス | 

S D B 0 D 

S D 9 8 0 

$ C 9 E 8 

$ 0 7 7 8 

- ----^ 二 —~--— " ■■—-.^.V -r - ■ T ■ - へ --. |1 

S 0 7 8 F 


ワークエリァ ' 

06F6 ： 06F7] 

06F8 ： 06F9 
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0 6FC : 06FD 

相対値 
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+ 14 

+ 16 

デバイス名 | 

(COM 1 ) 

(COM2) 

(COM3) 

(COM4) ' 

| デバイス番号 | 

1 5 

6 

7 

8 

■ : . j r：_r =H 

I アドレス | 

| S 0 8 2 E 

I_ 

$ 0 8 C D 

hJliMd "1111 idM 1 1 ~1 

S 0 9 6 C 

$ 0 A 0 B 


(02B2 ： 02B3) 
= S 0 6 E C 


図4 • 丨 • 〗0 入出力のジャンプテーブル 
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EOF 
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SCB02 
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SCB40 

, 
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// 
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// 
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「( D …先頭アドレスからの相対値 
^⑥…テーブルの内容 

、©■■■呼び出しているルーチン（エントリが複数あるものは， ft 衣して1つ) 


図4 . 1•丨1 ディスクのジャンプア 


ワークエリアの先頭アドレス 

(0 2 3C) 

(0 2 3 F) 

(0 2 4 5) 

(0 2 4 2) 

(0 2 4 8) 

(0 2 4 B) 

(0 2 4 3) 

ジャンブ先の各ルーチンの 
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オーブン 

ク ロー ズ 

1 バイト入力 

1 バイト出力 

ホンンヨノ 

チェック 

, 

EOF 

L 0 F 

;呼び出しているサブルーチン 

SCEDC 

SCE4B 

$007 2 

SD08E 

SD0CA 

SD 11 A 

SD 11 D 

ジャン プ先 

$7713 

$ 7 8 B E 

S 7 9 F 9 
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- 

S7 AA8 

S7CA4 
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なお ， S FD が未設定の状態でジャンブテ ー ブルを参照しなければならない才 
—ブン処理系などへの分岐の際は，デバイス番号レジスタ （02 E 6) を参照す 
ることによって処理を進めています（図4 • 3 • 2参照）. 

例3 カセツトから1バイト入力する場合図4 • 1 • 12 (ファイル番号は 

#3 ， S FD の内容は$12とする） 

( 1 ) 基本的入出カルーチンの1つである1バイト入カルーチン （$ D 0 7 

2) は，ファイル番号# 3の S FD の内容を見ます （ B レジスタに 

入る）. 

SFD の内容は$12であり，ビット7が立っていないのでディスクで 
はないことがわかります （ N フラグを£ている）. 

(2) デバイス番分は，下位4ビットから2 ($02) であることがわかり， 

デバイス分類テーブルからデバイス番号2のアドレス，すなわち名 C 9 
E 8 を持ってきます（ X レジスタに入る）. 

(3) $ C 9 E 8 から始まる CAS 0 のジャンプテーブルのうち1バイト入力 

のものは$ C B 0 2であるから，サブルーチン$ C B 0 2を呼び出し， 

1バイトのデータを受け取ります （ A レジスタに入る）. 


図4 • 1 • 12 各入出カルーチンを呼び出す方法 

ヮークエリア 

2 B2 ： I) 2 B'A) ニデバイス分頌テーブルの^ Jf (アドレス（二 S 0 G EC) 

< 0 2 B 4 : 0 2 H f > ) - S FD テーブルの: t 妞アドレス （ =$ 0 7 0 C ) 

(〇 〇 B FI =ファイル恭V (この例では$ 〇 ；|) 


( I ) S ド0の沾を,4み込し 
L D X S 0 2 B I 
L D B $ B F 
L D Ei B ， X 


X 一 S 0 7 0 C 
0 ；1 

B * - - - 


_ ? J SFD テーブル 
! it 1($70〇 

# 2 ( S 7 0 D > 

s ] 2 ¢3 ( S 7 0 E ) 

# 1($ 7 OF ) 


リ 


デベイス分 ； Efj r — ■，ルかリ 


A N D B 

^ ? 0 F 

A S L B 


L L)X 

$ 0 2 li : 

L I) X 

B, X 


ノヤ/フテー-/ルの尤姒アドレスを d み込む 


一 B and 二 $ 0 F ( = S 0 2 ) 

—B ^ 2 dO" 

^ S 0 6 E C 


S D B 0 D 

SD 9 8 0 

c n q r a 


—b し y 匕 g 

S 0 7 7 B 



デバイス分如 
テーブル 

U “:C : £)6EfJ» 
(06EE ： 06EF) 
IC 6 F 0 I 0 6 F 1 ) 
(C 6 F ： ： ^ 0 F 3 } 


( : i ) ジャンフテーブルのサブルーチン忝呼び出す 

J S R f $ 0 8 , X ] -r -- 

( ^ J S R S C B 0 2) 


人出カジャンフ 
テーブル 




^ SC 0 G 2 


1-— ■■ 


$ C 9 E 8 
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4 — 2 入出力応用ルーチンの概要 

4 — 2 — I セ ー ブ （ SAVE ) ル ー チンの概要 


アドレス 」$ C D 3 E 

^ W \ セーブには4種類あり，それぞれのタイプに分けて説明します. 

(1) SAVEM $ C E 0 4 

• SCDOE を呼び，ファイル名•デバイスの選択，ファイル番号#17を設 
定，ファイルタイプ, アスキー フラグ， テープ ファイルモードのクリアを行います. 

•ファイルタイプを$ 0 2に指定した後，$ CEDF でオープン処理を行い， 
$00. プログラムの長さ • 開始番地.プログラムの内容 • $ FF • $ 0 0 0 
0 •入口#地の順に出力します. 

• $ C E 4 B の クローズ 実行 ル™ チンに入り， クローズ 処理をします. 

(2) SAVE $CD 3 E^SCDCF 

• $ CD 0 E を呼んだ後 ， $C DCF にジャンプし，プロテクトチェック （$C 
DC 6 ) とオープン処理 （S C EDF ) を行います. 

❿$ C DD 6からプログラムの出力を行い，$ F F • (01 E 7) • (0 1 E 

8 ) •テキストエリア〔先頭 （ 3 3 : 3 4 ) 〜 最終 （ 3 5 : 36)]の内容を出力 

した後，$ C E 4 B のク ローズ処理ルー チンへジャンプ します. 

(3) SAVE , A $CD3E —$CD 20 

• $ CDOE を呼んだ後，$ CD 20にジャンプし，$0〇24から1^15丁と 

の共通 ルー チンになるため$ 9 F 0 B を呼び ， L I ST の範囲を検索します. 

®$ CDC 6 を呼び，プロテクトチヱックを行った後，アスキーフラグとテープ 
ファイルモードを反転させ， （ BF ) が0でなければ$ C EDF のオープン処 

埋を呼び出します. 

® $ 9 E D 1の L 丨 ST 出カルーチンで， プログラムの出力を行います. 

(4) SAVE ，P $CD 3 E 

• $ CD 0 E を呼んだ後， $ CEDF を呼んでオープン処理をします. 

• $ CD 5 B からは，プロテクト変換をテキストエリアに対して行い，$ C D A 
fi — $ C I ) D 6の S A V E 処邺系を川い，最初の$ FF が$ FE に変わる（プ 

ロテクト指定）他は （2) と M 様に出力します. 

• $ CDAA から，プロテクトの逆変換を行います〔プロテクト出力の最中にブレ 
ーク. キーを押した場合，テキストはブロテクトがかかったまま使用不 ! イの状 
態となるので（ディスクの蜴合は起こ 1 )ません），このルーチンを呼んでドさい〕 • 
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4 — 2 — 2 ロード （ LOAD ) ルーチンの概要 


アドレス I $ C F 2 2 , $ C F 2 9 , $ C F 31 

^ W \ エントリの違いなどにより，次のワークエリアが変史されます. 

• (02 EE ) RUN ($ C F 2 2 ) …$02, MERGE ( $ C F 2 9 ) - L 

OAD • LOADM ( $ C F 31) …$0 0 
® ( 0 2 E F ) RUN • LOAD • LOADM … $0 0， MERGE〜$FF 

• ( 0 2 F 0 ) LOADM …$0 0，それ以外… $ 0 0 以外の fi / i : 

• (0 2 F 1: 0 2 F 2) RUN 〜$ 0 2 0 0, LOAD • LOADM … $ 0 0 

0 0 

次に，典通ル ー チンが始まる $ CF 4 B からの流れを見ることにします. 

春$ CC 3 7でファイル名 • デバイスの選択を行います. 

• LOADM でオフセットの指定があれば （0 2 F 1: 0 2 F 2) に格納しま 

す. 

• LOAD , LOADM で R 衍定があれば （0 2 EE ) に$03を代人します. 

• (ここから CHAIN とも共通ルーチンになりますが）デバイスがカセット • 
ディスク以外はエラーにします. （0 2 EE ) が$03のものは，全てのファ 
イ ルを クロー ズします （$ CE 8 1). 

翁プログラムのファイル番 1 づ.#17をオープンさせます （$ CEDC ). 

• LOADM なら$ D 0 3 () にジャンプします.また， BASIC ソースのバイ 
ナリ形式のものは$ C FC 8にジャンプします. 

以下，各場合に分けて説明します. 

(1)BASIC ソース，アスキー形式の場合 

♦アスキーフラグとテープファイルモードのチヱックを行います. 

• MERGE 指定がないと，テキスト消去•クリア処理 （$ 8 F 3 9 ) をします. 
•テキスト作成ルー手ン （$8 E 88) にジャンプします. 

( 2 ) B A S 丨 C ソース，バイナリ形式の場合 

• MERGE 指定があれば，エラーにします. 

• $ 8 F 3 9を呼んだ後，3バイト入力し （ D 1 ) ， （ 01 E 7 : 01£ 8 ) に 
格納します.※ （ D 1) へは，入力したデータに+1した飢が入ります. 

• $ 8 DAE のメモリフルテストを行いながら，データ終 f フラグ （ C 0) が立 
つまで， （3 3:34) から格納していきます.この際， （ 3 5:3 6 ) が順次 
更新されます. 
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♦プロテクトの場合は，プロテクト逆费換を行います （$ CDAA ). 

これは，1バイト II が$ FE のとき萸けされます. 

•フログラム最終部の，リンクポインタを修正します. 

• (ここからは （1) と共通になりますが）クローズ処理 （ SCE 4 B ) ，変数 

消去 （$8 F 4 B ) ,リンクポインタ修正($0 7 3 0 )を行います . RUN 
指定があれば実行解読ルーチン （$ C 6 3 D ) ,なければメインルーチンプロ 
ンブト-表示部 （ S 8 E 72 ; Ready 出力）へジャンプします. 

(3) LO A DM の場合 

•ファイルタイプとアスキーフラグのチヱックを行います. 

•プログラムの M さと先] ffi アドレスを読み込み，オフセットを加えたアドレスか 
ら，長さ分だけのデータをメモリに格納した後，入口番地を （0217:02 
18) に設定し，クローズ処那 .（$CE 4 B ) を行います. R 衍定があれば E 
XEC ($ C 7 7 7 ) に飛び，フ七グラムの実行を開始します. 


4—2 — 3 オープン （ OPEN ) ルーチンの概要 


アドレス」 $CEA8 〜 $CF 21 

($CEDC, $CEDF, $ C E E 1〜$ C F 21 ) 

W ] データファイルをオープンさせるこのルーチンは，次のような手顺 
で実行されます. 

( 1 ) テキストを読み込み，ファイルのモードのアスキーコードをスタックに 

設定します （$9 2 C 3， $ 9 9 4 B を使)川. 

(2) テキストのファイル#ゆを読み込み （$ C E 8 D )， そのファイル番号の 

S FD がオープン状態にないことを調べます. 

( 3 ) テキストからファイルディスクリプタを読み込み，ワークエリアにファ 

イル名，オプション，デバイス番号を設定します （$ CC 3 7). 

(4) ファイルタイプ （02 DB ) を BASIC データ （=$0 1) に設定 

し， アスキー フラグ （0 2 DC ) とカセット • テープ ファイル モード 

(0 2 D 4) をアスキー （=$ FF ) に設定します. 

(5) オープン实行ルーチン （$ CEE 1) を呼び，答デバイスをオープンさ 

せた後，エラーがなければファイル番号をクリアして終了します. 
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オープン実行ルーチンを使 Hi する際の内容は，以下のようになります. 

• $ C ED C …インプットモード用のエントリ （L 0 A D などで使われる） 

• $ C E D F …アウトプットモード用のエントリ （S A V E などで使われる） 

• $ C E E 1… B レジスタに，そのファイルのモードを アスキー コードで入れて 

おくことが必要 

実行ル ー チンの入力情報としてオープンルーチンが設定するものを与えます. 

( 0 0 BF ) =ファイル番号 （ 1〜17 ) 

( 0 2 D 4 ) , ( 0 2 DC ) =アスキーフラグ \インプットモード時には 

( 0 2 D B ) =ファイルタイプ i 復帰情報になります. 

( 0 2 DD ) =ファイル名の長さ （0 〜 8) 

( 0 2 DE 〜〇 2 E 5 ) :ファイル名 
(0 2 E G ) =デバイス番号 
(0 2 E 7〜〇 2 E C ) =ファイルのオプション 
なお，このルーチンではファイルモード （0 2 DA ) を設定し，その内容と （0 
2 E 6) の OR を取って，そのファイル番兮の S FD を設定します. 


4 _ 2 _ 4 クロ ー ズ （ CLOSE ) ル ー チンの概要 


L アドレス 」$ C E 7 3 , $CE8 1 〜 $CE8C 

($CE4B, $CE4D 〜 $CE72) 

^ | 特定のファイルをクローズする場介と，企てのファイルをクローズ 
する場合との2種類があります. 

(1) テキストの 「 CLOSE 」 の後ろにファイル番ゆが書かれていない場合 

には，$ CE 81にジャンプします， $ CE 81では，#0〜#17の 
ファイルを令てクローズさせます （$ CE 4 D 使用）. 

( 2 ) ファイル#りが書かれている場合には，ファイル番号を （0 0 BF ) に 

設定し （$ CE 90) ，そのファイルをクローズさせます （$ CE 4 B 
使用）.ファイル番号が複数書かれている場合には，「，」をチヱック 
してから，内••びファイル番号を設定 （$ CE 8 D ) し，阿様にクローズ 
させます. 

次に，クローズ実彳』•ルーチンについて解説します， 

• $ C E 4 B— ( 0 0BF) の示すファイル番号のファイルをクローズします. 
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® $ C E 4 D … B レジスタの示すファイル番号のファイルをクローズします. 

その処理は，以ドのようになります. 

( 1 ) そのファイル番 y •の示す S FD を参照し，デバイスがディスクのとき 

は，ディスクのクローズルーチンを呼びます. 

(2) ディスクでないときは， （0 2 DA ) にファイルのモードを入れ （S F 

D から求める）， SFD の指しが:す，デバイスのクローズルーチンを呼 
びます. 

(3) その S FD の内界をクリアします. 
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4 —3 基本的入出カルーチン 

基本的入出カルーチンは，4 — 3 — 4節の F I RQ および Abort ルーチンを除 
いては，全て SFD (システムファイルディスクリプタ）とファイル番号（〇〇 
BF ) を設定しておくことが前提となっています.設定されていない場合，即ち， 
その両方のうちいずれかが，または両方の値が$ 0 〇になっているときは，コン 
ソールへの入出力とみなし，その処理を行います. 

4—3—1 ジャンプテーブルを使う基本的なルーチン 

これらのサブルーチンは，図4 • 1 • 12に示したような形で SFD の指すデ 
ノくイスのサブルーチンを呼び出してきます. 

( 1 ) 1バイト入カルーチン 


_アドレス I $ 0 0 7 2 〜$ D 0 8 D 

i 機 能1 そのファイルの SFD (システムファイルディスクリプタ）の示す 
デバイスから，彳バイト入力する. 

L レジスタ」 A , B , X ( B , X , Y , U は保存） 

復冊 情報 A レジスタ=入カデータ 

(0 0 C 0 ) =ファイルの終わり，またはそれ以降に入力を行った 

場合は，$「「か0設定される（それ以外は$0 0). 
WORK | ( 0 0 B F ) ®( = R ea d ) ， ( 0 0 C 0 ) ® 

( 0 2 B 2 : 0 2 B 3 ) ® , ( 0 2 B 4 : 0 2 B 5 ) ® 

_ 堅]入カデータ終了フラグ （0 0 C 0) をクリアした後， SFD テーブ 

ルの先頭アドレス （02 B 4 : 0 2 B 5) とファイル番号 （0 0 BF ) から，目 
的の S FD を見つけ ， S FD の示すデバイスがディスクのときは， 図4 *1*11 
で示されるアドレスへジャンプし，その他のデバイスは，デバイス分類テーブル 
(図4 • 1 • 9) を参照し，そのジャンプテーブル（図4 • 1 • 1 0) で示され 
るサブルーチンを呼び出します（図4 • 1 • 12参照）.入力は，これらのサブ 
ル ー チンが行います. 
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(2 ) 1 バイト出カルーチン 


アドレス」 $ D 08 E 〜$ D 0 C 9 

能1そのファイルの S FD の示すデバイスに， 1 バイト出力する. 

レジスダ] A , B , X ( A , B , X , Y , U は保存） 

入力情報1 A レジスタ=出カデータ 

WOR K "] ( OOBF ) ® ,(02 B 2:02 B 3) ® 

(0284 : 02 B 5) ® , (05 AA ： 05 AB ) ® 

( 0 SAC) ® 

S IJ fTI $ D 617— プリンタ 1 バイト出カルーチン 

解 説 ファ イル番号の指定がないとき 〔（0 0 BF ) 二〇〕で，かつ，フ 
リンタ0 N フラグが立っているとき 〔（0 5 AC ) キ0〕は， A レジスタのアス 
キーコードに 対応する文字をプリンタへ出力することができます•また，その フ r 
イルの SFD が， インプット モー ドで，かつ， コンソール 以外のデバイスを指し 

ているときは出力しません.その他の場合は， $D 0 7 2と同じ方法で， SFD 
の示すデバイスへ出力します（図 4 • 1 • 9 〜図 4 *1.1 2 参照）. 


(3) ポジション*デバイスチェックルーチン 


ァ 

ドレス 

機 

有 g 


$ D 0 CA〜$ D 0 E C 

カーソルや プリ ンタへッ ドのポジ シヨン など，改行するために必要 


な情報を与える. 

レジスタ I A, B, X ( 全て保存） 

復帰情# - ] Z フラグ=カセットおよびディスクのときはセットされる. 

※ ワークエリアについては， 図 4 • 3 • 1 を参照. 


WORKl (OOBF) ® ， （ D0CD 〜 00Dfl) ® 

(0 2 B 2 : 0 2 B 3 ) ® ， （ t!2B4:02B5) ® 

(0 2 D 9 ) ®)( = W rite) 


解 説 | $D 0 7 2 と同じ方法で， SFD の示すデバイスのサブルーチンを 
呼び，図 4 • 3 • 1 に示したようにワークエリアの設定を行います. 
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図 4 • 3 •1 


$ D 0 C A によって設定されるワークエリア 


卜' ヮ-クェリァ丨 
:デバイス' 

げサブルーチ > 1 、\ 

||.のエントリ ]j 

( 0 0 C D ) 1 

i 

j ( 0 0 C E ) 

( 0 0 C F ) j 

( 0 0 0 0 ) 1 

( 0 2 0 9 )1 

H ~ 11111 1 ~ ^ -^- L ― *— 1 ~ 1 ~~ 

! KYB 0 ,SCRN 
'[ $ D 9 9 2 ) 

S 0 E 

( 0311 ) 

フィ _ ルド改行桁数 

( 0 3 0 B ) 

力ーソルの X 座標 

( 0 0 C 3 ) 

W 1 D 丁 H 幅! 

S 0 0 

C A S 0 

[$ C B 4 D 〕 

SOI 

$〇〇 i 

S 0 0 

S 0 0 

1 S F F 

し P T 0 

($ D 3 9 C ) 

! S 0 E 

(X + s 1 4 ) : 

フィールド改行桁数 

( X+S 1 2 ) 

現在の桁位置 

| ( X + S 13 } 
改行桁数 

| s 〇 〇 

C 0 M n 

〔$ D 3 9 C 〕 

$ 0 E 

! (X +$ 14 ) 

; フィールド改行桁数 

( X+S 1 2 } 

バッファ内のデータ数 

( X + S 13 ) 

改行桁数 

$00 

1 DISK j 

C S 7 A A 8 j I 

S 0 E 

! $〇〇 

1 

(F B U F + 6 ) 

バッファ内のデータ数 

S 0 0 

S 0 0 


艱パ）で M まれているものは，ワークエリアまたはバッファ内のメモリであることをポしています- 
また， し） 内の又は，そのデバイスのジャンプテーブルの:アドレスをボし， FBUF はフアイ 
ルバッファの: t 頭アドレスをボしています. 

れヮークエリアの点味 

(〇〇 cd ) =フイールドの珩数； コンマで [<yj つたときのフイールドの桁数*あるいは,コン 

マで移動する桁数を示します. 

( 0 0 C E ) =フイールド改行桁数； コンマで KW つた場 d 呪 在の 桁 R 族がこの侦よリ大きく 

なつた場合は改行されます* 

(0 0 C F ) 二現在のポジション のデータ内の位菽をボします. 

(0 〇 D 0) =改行裕數 ；改けすべき桁数を示します. 

( 0 2 D 9 ) 二し F 出力禁止フラグ； 改彳 r の際 $ 〇 A (L F ) を出力しないデバイスを尔します， 


図4 • 3 • 2 デバイス番号 （ 0 2 E 6) 


ビット 7 6 5 4 3 2 1 0 



0 KY BD またはコン V — ル 


T 

ディスクでないとき…0 


— 1 SCRN 

ディスクでないとき"、 2 CAS 0 

3 L PT 0 

1 [ 4 - 8 COM n 


ず イスクの > 气 ..* ”1 


ディスクのとき…ドライブ番号 （ 〇〜 9 ) 
※次:際は，ドライブ番^は 3 まで 
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4 — 3 — 2 フアイル関係ルーチン 


( 1 ) ファイル名，デバイス設定ルーチン 

アドレス I $CC 3 4, $ C C 3 7 , $CC 3 C , $ CCAC〜$CDOO 
し機 能 I テキストの文字列式からファイルディスクリプタ （ FD ) を読み込 

み，ファイル名とデバイス番号をワークエリアに格納する. 

復帰情報 1解説の下にあるワークエリアが設定される. 

[ WORK ] ( 01 E B ) ® , ( fl 2 B 2 ： 0 2 B 3 ) ® 

( 0 2 D D ) ® , (02 DE 〜 02 E 5) ⑱ 

( 0 2 E 6 ) ® , (02 E 7 〜 02 ED ) ⑱ 

S U B 1$ 0 0 D 8 -> 汎用読み込みルーチン 

$0299—拡張用 

$ 9 8 F 1—式の評価 • 型判断と文字列の実行アドレスを読み込む 
終了条件 指定したデバイスがなかったとき Device Unavailable ” エラー 

($ C F 0 A ), ファイルディスクリプタの記述の仕方が間違って 
いるとき” Bad File Descriptor ” エラー （$ CCFC ) を発生， 

W \ $ CC 3 4は 「F I LE S 」 ， $ CC 3 C は 「LOAD ? j 用のエ 

ントリで， FD を必ずしも必要としません.その他の FD を必要とするもの （R 
OM モードでの 「 LOAD 」 も原則的に含まれます〉は $ CC 3 7 をエントリと 
しています.これらは，式の評価をして FD を表わす文字列の文字数と： t 頭アド 
レスを設定 （$9 8 F 1) し，それを基にディスクは$ C C 6 C で，その他のデ 
バイスは$ CCC 5 〜 $ CCFB 間で，デバイスを選択します. $ CC 83 から 
はオプションを ， $CCA 5からはファイル名を設定する部分です.また ， $C 
CAC からはファイル名転送ルーチンとしても呼ばれます.ユーザが$ CC 3 7 
を使用するときは 1 j | 川符で始まる FD の先頭アドレスを （ D 9 : DA ) に代入し 
て下さい. 

• ( 0 2 DD ) ニファイルの長さ： （ $ 0 0〜$ 0 8の間の値） 

• ( 0 2 D E - 0 2 E 5 ) ニ ファイル 名； アスキーコードで 入る. 

• (0 2 E 6) ニデバイス番号；デ八イスの指定のないときは，デフォ 

ルトのデバイス#号 （01 EB ) が代入される. 

• (02 E 7 〜 02 ED ) = ファイルのオプション；アスキー コードで 入る. 
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( 2) フアイル番号設定ルーチン 


ァ f 

r レス 

$ C E 9 0へ 

'$CE A e 


[機 

m 

テキストから読み込み， 

ファイル番号 （ 0 0 B F ) 

レジスタ 

A , B 



WORK 

( 0 0 B F ) 



SUB 

$ 0 0 D 2, 

$ 0 0 D 8 

—沉用読み込みルーチン 



$99 BC — 式の評価から1バイト整数データを作って B レジスタ 

に入れるル-"チン 

ファイル番号が1以上16以下でないと M Bad File Number ” エラー 
を発生させるためにエラー処理ルーチン （$ 8 DD 1 ) に飛ぶ. 


(3) 


フアイ ル チェ ックルー チン 


アドレス I $ D 0 ED 〜$ D fl F 9 

m W \ SFD を調査し，デバイス情報を CC レジスタに設定する. 

レジスタ1 B , X (全て保存） 

復帰情報] N フラグ==デバイスがディスクのときはセットされる. 

Z フラグ： =その ファイルが オープンされ ていない ときは セット される. 

WORK ] ( OQBF ) ® ，（ fl 2 B 4: D 2 B 5) ⑨ 


( 4 ) フアイル モー ドチ エツ クルーチン 


アト 

^レス 


機 

能 


レジスタ 

復帰情報 
WORK 

終了条件 


$ D 0 F A , $ D 0 FD 〜$ D 119 

SFD を調査し，そのファイルのモードのチェックを行う. 
アウトプット （$ D 0 F A ) /インプット （$ D 0 FD ) 

A , B , X ( B , X が保存） 

A レジスタ=アウトプット…$ 2 0/インプット…$10 

( 0 0 B F ) ® f <02 B 4：02 B 5) ® 

ファイルがオープンされていないときは ， "File not Open ” エラー 

を発生させる. 指定したモードと異なるときは ， "Bad File Mode " 
エラー （$CEF 4) を発生する. 


※ファイル番号 （0 0 BF ) が13のときは，チェックを行わない, 
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4 — 3 — 3 基本的入出カルーチンを利用したデータ入出カル 

_チン 


( 1 ) ブロック出カルーチン 


[ァ 

ドレス 

通 

槪 

m 


$ D 9 0 F 〜$ D 9 2 E 

コンソール あるいはそれ以外のデバイスに，2 5 5バイトまたはデ 
—夕中に$ 0 0がくるまで，データを出力する. 


レジスタ」 A ， 巳 ，X 

入力情^! x レジスタ=データの先頭アドレス 
WORK 」(0 0 B F ) =ファイル番号® 

S U B ] $ D 0 8 E — 1バイト出カルーチン 

$ D A 3 fl—SUBOUT PUT 初期設定ルーチン 
$DA 3 6 -> S U B O U T PUT 後続設定ルーチン 
$ D A 6 4 — B 丨 O S 実行ルーチン 


解説 I 次の 2 とおりの動作をします. 

(i ) ファイル番号が設定されている場合 〔（ OOBF ) ¥0〕は， $ D 0 8 

E を用いて S FD の示すデバイスに出力します. 

( ii ) ファイル番号が設定されていない場合〔 （0 0 BF ) =0〕は，$ DA 

3 0，$ DA 3 6, $ DA 6 4を用いて画面上に出力します.その際， 
画面上のフイ ー ルドは設定されません. 


(2) ブロック入カルーチン 


アドレス j $ D A A 6 , $ DAB 2 〜$DADE 
~ m . W ] システム入力用バッファ （ fl 4 3 D 〜0 5 3 C ) に2 5 5バイト， 
またはデータ中に$ 0 D がくるまで，データをデバイスから入力する. 

レジスタ| A , X 

[Jgi 帰情報| X レジスタ =$ 0 4 3 C が代入される. 

( 〇 〇 C 0 ) =ファイル終了の場合は， $FF が設定される. 
WORK I ( 0 0 C D ) =データ終了フラグ⑱ 

U B I $ 0 2 6 0 —拡張用 
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$ D 0 7 2 —1 バイト入カルーチン 

S D 0 ED — フアイル チ：！：ツクルー チン 

解 説丨$ DAA 6エントリのとき， SFD が設定されていない場合には f 可 
も行いません （ Z フラグがセットされます）.また, SFD が設定されている場 
合はスタックポインタを+2して，このサブルーチンを呼び出した J SR • BS 
R 命令の書かれている番地を放棄するので，このルーチンが終わると，2段階上 
位のルーチンへリターンします.ユーザがこのルーチンを使用する場合は，これ 
らの処理を行わない$ DAB 2をエントリとするのが適当です.なお，入力した 
データの後/4には，データの終丫を示すため$ 0 0が付加されます（従って，デー 
夕が実際に入るのは$ 0 5 3 B までとなります.また，このルーチンを使ってキ 
—ボードから入力する際は，幽面に入力文字が出力されません）. 


(3) 一行出カルーチン 


[_ アドレス I $9 BD 巳， $9 BF 3， $ 9 B F 6〜$ 9 C 2 A 
機 能 I コンソール，あるいはその他のデバイスに，文字列•データを出力 
する • 


レジスタ| A , B ， X， Y 


入力情報]解説参照 


U 


復帰情報] B レジスタ=クリアされる （ Z フラグもセットされる）. 

X レジスタ=文字列（データ群）の最終アドレス+1の値 

WORK ] ( 0 0 B F ) ® f ( D 5 A 0 〜 05 A 5) 



(fl SAC ) ® 

S U Bj $979 B — 文字列定数などの読み出し評価ルーチン 

$ 9 8 F 7—文字列の実行ァドレス読み込み S AC を1つつぶす 
$ 9 B 5 0 改行ルーチン 
$ D 0 8 E — 1バイト出カルーチン 
$ D 9 2 F — フイ ー ルド設定ルーチン 
SOODE ^ BIOS ジャンプルーチン 

^ m ] エントリによって，処理内容および入力情報が多少異なってきます. 
• $ 9 BDB X レジスタに文字列の先頭アドレスー1の値，文字列の終わりに 

は$00，もしくは$ 2 2を入れて下さい. 
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• S 9 B F 3 PR I NT 文や INPUT 文プリント用のエントリ（このエント 

リから入るときは ， S D (ストリングディスクリプタ）などを正 
しく設定しておく必要があります. 

• $ 9 B F 6 B レジスタに文字列の長さ， X レジスタに文字列の先頭アドレス 

を設定して下さい. 

$ 9 BDB エントリの場合は，文字列の先頭に $0 D ，$0 A の並びがあると 
きには，1行改行 （$9 B 50〉 します.これ以降の動作は， SAC (ストリン 
グアキ ュ ムレータ； 3:な参照）を設定 （S 9 7 9 B ) し，その SAC を基に，文 
字列の媛さと実行アドレスを設定 （ $ 9 8 F 7 ) します.ここまでが$ 9 B F 6 
までの動作で，$ 9 BF 6以降は， ファイルとしてでないコンソールへの出力の 
場合〔 （ 0 0 B F ) = 0〕は，_而上のフィールド（システム仕様2 . 2 . 

4 (5)) を設定 （ SD 9 2 F ) します.このとき，プリンタ ON フラグが立つ 

ていない場合 〔（0 5 AC ) = 0〕は， BIOS の OUTPUT 〔システム仕 
様 2.1. 4 (16)〕を用いて文字列のコンソールへの出力を行います.その 

他の場合は，1バイト出カルーチン （$ D 08 E ) を用いて， SFD が指定して 
いるコンソールやその他のデバイスに文字列を出力します（この動作は，$ 9 C 
16から行われますから，ここをエントリとしても構いません）. 


( 4 ) 改行ルーチン 


アドレス I $9巳47，$9850〜$ 9 B 6 7 
機 能1 デバイスに $QD ( CR ) と $flA ( LF ) を出力します. 

レジスタ| A ， 巳 ， Y 

WORKl (00 CF ) ® ， （02 D 3) ® 

sub ! $ D 0 8 E -> 1バイト出カルーチン 

$ D 0 C A -> ポジション.デバイスチェックルーチン 
$ D 6 4 A — プリンタ改行ルーチン 



9 B 4 7エントリの際には，ディスク，カセット以外のデバイス 


は， X 座標が0のときは改行しません.改行する際 ( 


r 


スがプリンタのと 


きは$ D 6 4 A を川 


改行します.また，デバイスがカセットのときは 


A ( LF ) が出力されません.なおワークエリアは，図4 • 3 • 1を御参照 


さい, 
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(5 ) 一行入カルーチン 


スクリーンエディタ 


$ D 7 F 7 , $ D 807〜$ D 8 AB 

キーボード，あるいは周辺装置から1行を入力して，システム入力 
用バッファ （0 4 3 D 〜〇 5 3 C ) に格納する. 

レジスタ I A , 巳， X， U 

[_復帰情報1キーボードから入力したとき ， CNTL — X ， CNTL - C , ある 

いはブレーク • キーで終了した場合は， C フラグがセットされる • 
リタ—ン•キ—で終了した場合は， X レジスタに$ 0 4 3 C ， U レ 
ジスタにバッファ内の文字列の最終アドレスが，各々代入される • 

W 0 rTTI(D 9 : D A ) ® ， （0312:0313) ⑰/⑱ 

(0 5 A 9 ) ⑰/⑱ ， （ 0 5 B 7 ) ®/® 

[S U B | $ 0 0 D 2—汎用読み込みルーチン 

$ 0 0 DE — B 丨0 S ジャンプルーチン 
$ 9 B 4 7，$ 9 B 5 0—改行ルーチン 

$ D 9 3 D — フイ ー ルド設定および E L (イレーズライン）ルーチン 
$ D 9 F 4—汎用入出力 R C 巳設定ルーチン 
$ D A A S — ブロック入カルーチン 
$ D A E F , $ D A F 6 — カーソル表示，消去ルーチン 

「解 説]このルーチンでは， W 方のエントリの iii 初で$ DAA 6を呼んでい 
るため，ファイル#号 （ OOBF ) と S FD が設定されている場介は，そこで周 
辺装置からの人力を行い，このルーチンで入力を行いません. 

コンソールからの入力の場合は， BIOS の INPUT ， あるいは INPUT 
C 〔システム什様 2. 1.4(14)， (15) 参照〕を川います.ここで立するこ 
とは， FM — 7は， M 而をフィールドごとに分割して扱っているということです. 
従って，カーソルを移動する等で，複数のフィールドを変更したときは，変更 
された フィ ー ルド全てが コン ソールからの入力となります.ところが IN P UT 
を使用して持ってこられるものは，最初の フイー ルドのみで，残りの フイー ルド 
は ， I NPUTC を使って 1| n ] ごとに 持ってくる必势があります. 

しかし，他のフイールドを変史したときに，インタフリタがそれらのフイ ー ル 
ドを必要とするのは，次の2つの場介しかあ 1 )ません. 

•コマンドレベル（コマンド恃ちの状態〉で，阃ば11'上に出ている，以前入力した 
コマンドを修正して使用した場介 


アドレス 

【能 
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參コマンドレべルで，画上に出ている複数のプログラムの行を変更した場合 
このような場合は ， I NPUT で提出されたフィールド以外の，変更されたフ 
ィー ルドを I NPUTC で持ってくる必要があります.従って，この $ D 7 F 7 
では ， I NPUT で提出されたフィ ー ルドに何の入力もないなら ， I NPUTC 
を用いて，変更された次のフィールドをバッファに持ってきます.また ， INP 
UT で提出されたフィールドの先頭が数字で始まるのなら，すなわちプログラム 
の行の編集の際は， インプット継続フラグ （0 5 A 9) を、 1 /:てたままにしておい 
て（二 $ FF ) ，次の機会にリ I き続いて，この ルー チンを呼び出すときには I N 
PUTC で残りのフィールドを転送するようにします. 

このように，$ D 7 F 7のエントリでこのルーチンを呼ぶときは，インプット 
継続フラグにより ， B I 0 S の I N P U T ， あるいは I N P U T C を用います 
が ， $D 8 0 7のエントリで呼ぶときは ， I NPUT のみを〗 I ]いており，またイ 
ンプット継続フラグを立てないので，上記の動作はしません. 

※ I N P U T , I NPUTC では，変更されたフィ ー ルドを画面最上段のフィ ー 
ルドより順番に読み込んできます. 

バッファ に転送された フィ ールド内の文字列の中の一文字の アスキー コードが 
$ 0 0 ~ $1 F , あるいは S 7 F ， $ F E , $ FF であった場合は，スペース 
(=$2 0) で置き換えられます.また，文字列の最後にスペースがある場合 
は，そのスペースは無視されます. 

一連の入力が終わったときに， X 座標が0でなければ改行をします （$9 B 4 
7). また， ブレーク •キー や CNTL — X , CNTL — C などの キーに よって 
入力が終了した 場合は， インプット継続フラグ （0 5 A 9) と ブレーク •キー 押 
下フラグ （ 0 312 : 0 313 ) をクリアした後，改行をして （$9 B 50) 終 

わるだけで，バッファに転送されません. 

※文中で使用した「バッファ」というのは， システム入力用バッファ （0 4 3 D 
〜 0 5 3 C ) [ 2章で 「 fi _ 入乃バッファ」と呼んだもの〕のことを衍してぃます. 
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4 一 3 — 4 FI RQ と Abort ルーチン 


( 1 ) F I RQ ル™チン 


^アドレス」$ C 9 5 3 — $C 9 D 7 

[レジスタ] A ， B ， X 〔全てのレジスタ （ CC ， S ， DP も含む）が保存〕 

ift ] ここでは，ブレーク•キーとの関連だけを述べることにします. 
•ブレーク•キーの押下のチヱックを行い，押されていれば，サブシステムに I 
RQ リクエストを出して命令の実行を解除させた後，ブレーク•キー押下フラ 
グをセット〔（0 31 3) —井$ 4 0〕します.この後， IRQ リクエストを解 
除させます.また，押されている間はループを繰り返しています. 

♦ブレーク • キーの割り込み以外のサブシステムの アテンションなら， その割り 
込みの処现をします、 


(2) Abort ル—チン 


アト 

r レス 


解 

説 


$ 0 6 7 8〜$ D 6 D 7 


入出力の Abort テストを行います. 


拡張フック （ 0 2 8 D ) を通した後，ブレーク•キー押ドフラグ <0 31 3) 


をチ 


エツ 


クし，$00 (押されていな 


なら，そのままリターンします. 


( 0 5 AC ) , ( 0 3 1 2:0 3 1 3 ), ( 0 0 BF ) 




( 


5) , DP 


レジスタをクリア 




す • 


8 F 


を呼び， SP の初期設定， CONT アドレスのクリア， SAC の初 


期設定を行った後，$ E C 0 5で音関係の初期化， $ DB 4 4 で BEEP 0 


FF , $ D 7 


で MO TOR OF F を行います. 


( 0 2 F 3 ) の LOAD フラグが立っていれば，$ 8 F 3 9でテキスト消去， 


変数クリアなどの処现を行います. 






TERM モードのときは，割り込みの初期化やクロ 


•ぐ 


处理を行いま 


す. 

• $ 8 E 6 3のメインルーチンプロンプト出力部にジャンフ°し， 「 Abort 」 出力を 
行いメインルーチンに戻ります. 
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504 E 
50" 〇 0 
3052 
5054 
S056 
5058 
305 A 
505 C 
505E 
^) 0^0 
5062 
5065 




5000 

5002 

5006 

5009 
500 C 
50 0E 

5010 
5012 
5014 
5016 
5019 
50 IB 
*501 E 
5021 


OF 

30 

BD 

BD 

,n / 

OQ 

A7 

DE 

34 

9F 

BD 

OC 

BD 

B 6 

つ " T 


5023 
5026 
5023 
502 A 
502 C 
502E 
5031 
5034 
5037 
507 ；9 
503 B 


BD 

96 

26 

OF 

30 

BD 

BD 

BD 

OC ： 

8 D 

20 


50313 
5040 
5043 
5045 
5047 
S 043 
504 A 
504 C 


■nr -r 

/ 3 

7D 

26 

8D 

4 匚 
26 
SD 
3D 


NAM F_LIST 

OPT MEM.NOGEN 

ORG ¢5000 

5000 F-LIST B.QU * 

BF CLR *BF 

ED COCA し EA5( MSG-1,PCR 


9BDB 



JSR 

$9BDB 

DB07 



JSR 

¢0807 

つ， 



LDA 

#$22 

B4 



STA 


D9 



し DU 

$D9 

40 



PGHS 

U 

I〕9 



SIX 

f>0? 

CC37 



JSR 

$CC 37 

BF 



INC 

宰 BF 

CEDC 



J3R 

$CEDC 

02DC 



LDA 

$02DC 

1A 

503 D 


BEQ 

BINARY 

■5023 


REPEAT 

EQL3 

* 

DAB2 



JSR 

屯 DAB2 

CO 



LDA 

$C0 

7B 

50A5 


BNE 

ESC 

BF 



C し R 

$PF 

01 



し EAX 

1,X 

D?2F 



JSR 

$D92F 

D 9 OF 



JSR 

$D90F 

9B50 



JSR 

$9850 

PF 



INC 

$BF 

78 

50B3 


BGR 

EfRKCHK 

E6 

5023 


BRA 

REPEAT 

5030 


BINARY 

EQU 

* 

07 D6 



COM 

¢0206 

02DB 



TST 

¢02 DB 

77 

50 EC 


BNE 

BFMERR 

7F 

50C6 


BSR 

INPUT 




INCA 


77 

r 50Cl 


BNE 

PPERR 

7A 

50C6 


f-i r；fc 

boK 

INPUT 

7G 

50C6 


BSR 

INPUT 

S04E 


LIST 

EQU 

* 

76 

50 C6 


BSR 

INPUT 

02 



PSHS 

A 

72 

50C6 


BSR 

INPUT 

E：0 



DR A 

,S+ 

4D 

S0A5 


BEG! 

ESC 

6C 

50 C 6 


BSR 

INPUT 

89 



TFR 

A,B 

60 

5006 


BSR 

INPUT 

89 



EX6 

A,B 

BF 



C し R 

$bf 

B615 



JSR 

¢0615 

9C22 



JSR 

$9C22 


^Print__Qut MESSAGE 
省し ine_input -From KYBD 
^5et Double Quotation Mark 
to Top o-f File Descriptor 

★Push (D?:Dfl) 

(Set. File Name -V Device# 
*File# =1 

*0pen File (Input Mode) 

^ I f Bi nary hile then E^i nary 

*B1ock Input from -t i 1 e 

f End—of」-lie then Escape 
^Fi l e# ' := 0 < Nor'mal) 

终 Set Field 

关 Black Output to 3CRN(Console) 
箐 Output CR を LP 

♦File# 二 1 


■w Di spa^i t i an o{ CASO 

务 if Machine Proq then ERROR 

^Protected_Program ? 

普 i+ Prot 0 Cted_Pregram then ERR 
省 skip LJNLIST_# (upper byte) 
★skip UN し IST_# (lower byte) 

舞 read Link Pol n ter (up par tjyte 

*read Link_Pointer (lower bv te 
*i f Link —Pointer ~ ¢0000 
then Escape (CLOSE ?乂 RETURN) 

*read Line Number 


*Fi1e# = 0 <Normal) 
^Output Line Number 
^Output Space 


1"n()() 
10010 
10020 
10030 

10040 
10050 
10060 
10070 
10080 
1. 0090 
10100 
10110 
10120 
10130 
MO 
1 0150 
10160 
10170 
t oi gn 
10 1.90 
10200 
1021 0 
10220 
10230 
10240 
10230 
10260 
10770 
10280 
10290 
10300 
1 0310 
10320 
1 0330 
10340 
10350 
10360 
10370 
10380 
10Z90 
10400 
10410 
10420 
10430 
10440 
10450 
1 0460 
iti 470 
10480 
10490 
10SOO 
10510 


4 — 3 — 5 サンプル 

ディスクやカセットのファイルを國而に出力します.プログラムファイルの場 
合はフィールドをセットしてあるので，[由)面に出たリストを修正するだけで，プ 
ログラムとして格納されます.また，カセットにバイナリ形式でセーブされたファ 
イルはギャップが短いためブロックを読み飛ばすことがあるので，1ブロックを 
読んで表示している問にモータを少し戻しておくか，あるいは，あらかじめ煶い 
ギャップでセーブする〔（ 01 E 9 ) •を$ 8 0ぐらいにしておく〕かを行っておく 
必要-があります. 

PAGE 001 (821201 ,000255) F LIST 


D4DA7DFDEFDD 
83 Q CT201S1 O B B 
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X 0520 

5063 

OC 

BF 


INC 

10530 

50iA 

3E 

垂マ1_严 r 

Uoo し 


LDX 

1, 0540 



50 6 D 

し IST1 

EQU 

j 053(:) 

506 D 

BD 

57 

50C6 

BSR 

10560 

506 F 

A7 

80 


STP\ 

10570 

5071 

- Xm - i 

15 

5088 

BEQ 


PAGE 002 <821201 T 00025 5) F_ し IGT 


105 BO 

5073 

81 

FE 



CMPA 

10590 

5075 

26 

F6 

506 D 


BNE 

1 0600 

5077 

8D 

4D 

S0C6 


BSR 

10610 

5079 

A7 

80 



STA 

1 0620 

507 B 

B4 

OF 



ANDA 

10630 

5070 

LF 

89 



丁 FR 

10640 



507F 


し IST2 

EQU 

10650 

507F 

8D 

45 

50C6 


BSR 

1 0660 

5081 

A7 

80 



STA 

10670 

5083 

5A 




DECB 

l 0680 

5084 

26 

F9 

507 F 


BNE 

10690 

5086 

20 

r- rr 

匕 

50 6 D 


BRA 

1 0700 





箐 


10710 



5088 


OUTPUT 

EQU 

10720 

5088 

8E 

033 C 



LDX 

10730 

50 SB 

108 E 

0430 



し DY 

10740 

50SF 

OF 

5F 



CLR 

10750 

5091 

OF 

BF 



CLR 

10760 

5093 

BD 

C177 



JSR 

10770 

5096 

8E 

0430 



LDX 

10780 

509? 

BD 

D 9 OF 



JGR 

10790 

509 C 

BD 

9B50 



JSR 

10800 

509 F 

OC 

BF 



INC 

10810 

50 A1 

8D 

10 

S0B3 


BSR 

1 0820 

50A3 

20 

A9 

504 E 


BRA 

10830 





* 


1OS 40 



50A5 


ESC 

EQU 

10850 

50 A5 

TC* 

■■■ ■—I 

40 



PULS 

10860 

50A7 

DF 

D9 



STU 

10870 

50 A 9 

6F 

CO 



CLR 

1 0680 

50 A B 

6F 

CO 



CLR 

10890 

50AD 

6F 

CO 



CLR 

1 0900 



30 AF 


CLOSE 

EQU 

10910 

50AF 

BD 

CE4B 



JSR 

10920 

50B2 

39 



RET 

RTS 

10930 







1 0940 



50B3 


BRKCHK 

EQU 

10950 

50B3 

FC 

0312 



LDD 

10960 

5 0 B 6 

27 

FA 

50B2 


BEQ 

10970 

50B8 


62 



LEAS 

10980 

50BA 

20 

E9 

50A5 


BRA 

1 0990 





普 


1 1000 



50 BC 


BFMERR 

EQU 

1101 0 

^jOBC 

8D 

FI 

50AF 


BSR 

J 1 020 

50BE 

7E 

CEF4 



JMP 

1 1030 







1 1 040 



50CL 


PPERR 

EQU 

11 050 

SOCi 

8D 

EC 

50AF 


BSR 

1 1060 

50C3 

7E 

CDGA 



JMP 

1 1070 







i 1 080 



50C6 


INPUT 

EQU 

1 1090 

5006 

BD 

0072 



JSR 

11100 

50C9 

OD 

CO 



1ST 

11110 

50CB 

27 

E5 

50 B2 


BEQ 

n 120 

50CD 

■デ^ 1 

■二 - Z 

62 



LEAS 

11130 

50CF 

20 

D4 

50 A 5 


BRA 

11 140 





* 


11150 



5001 


MSG 

EQU 


$BF ^Fileft 二 l 

#$033C 

箐 

INPUT 
, X + 

OUTPUT *i-F End——Line then OUTPUT 


#$FE 
し IST1 

* i f not 

CONST then Continue 

INPUT 

*Disposition of CONST 

,X + 

#$0F 

A,B 

篑 

INPUT 

★Breg 二 

bytes Qf CONST 

LIS 丁 2 
し IST1 






#$033C 

令 Xreg = 

Text_Buffer begin 

#¢0430 

$!5F 

箐 Yreg = 

I /Q_Bu.f ^ er begin 


ヰ File# 

- 0 (Mormatl) 

*C 177 

One Li ne Di 5 - transrat i on 

#$0430 

$D90F 

^Output 

One Line 

多？ B30 

Gat put 

CR \k LF 

$BF 

BRKCHK 

LIST 

^Fi left 


雀 



U 

*Pul1(D9:DA) 

丰 D9 



，い， 

*Ciear 

T 叩卜 Bf if f 

,U -5 - 

I U\. 



サ u ■ 

斧 

$CE4B 

*CLQSE 

#1 


*Retur n 

from Subroutine 

-s* 

$0312 

*Break_ 

key pashed ? 

RET 
¢02 , S 

箐 n Qt 

pushed then RTS 

ESC 

*i -F pushed then Escape 

w 



CLOSE 



$CEF4 

♦Bad File Mode ERRDR 


CLOSE 

$CDCA *Protected Program ERROR 

箐 

$0072 * Input 1 byte 

$CO 

RET *i f n□t End_of _Fi1e then RTS 

¢02 , S ’ 

ESC *if End_pf_hile then E.^scap 0 

箐 
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PAGE 003 ¢321201 , 00025 5) F—LIST 


1 SECTOR : 1 
+3 +A +B +C +D +E +F 


EDITOR FOR FM-7 

DRIVE : 1 TRACK : 
■ k ) +1 +2 +3 +4 +5 + ふ +ア 

00 FF FF FF FF Cl CO Cl 

OC CD OE CO Cl CO CO Cl 

C7 21 Cl C2 2CJ Cl22 Ci 


DISK 


3 り : 

CO 

Cl 

CO 

CA 

CO 

C2 

f：2 

CO 

CO 

CO 

CO 

CO 

C5 

CO 

C 直 

CO 

40 : 

し 1 

CO 

C：3 

C3 

C2 

CO 

C3 

C4 

CO 

CO 

CO 

47 

mJ iJj 

49 

4A 

4B 

50 3 

C3 

4D 

r-^cr 

L jt 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

rr 

FF 

FF 

60 : 

FF 

FF 

FF 

FF 

FF 

pp - 

pp 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

70 3 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

prp 

FF 

B0 : 

FF 

pp 

FF 

FF 

FT 

FT 

FF 

FF 

FF 

FF 

per 

FF 

FT 

FF 

FF 

FF 

90 : 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

AO ; 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

B0 : 

FF 

FF 

FF 

FF 

F-'F 

rr 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

CO s 

FF 

pp 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

DO : 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

EO i 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

66 


6>6i 

66 

66 


66 

FO : 

66 

6j6j 

66 

66 

66 

66 


FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

KEY 


一 ESCAPE 

TH3 

: S 1 

^□DE J 

f L # 

HARDCOPV 





，ラ〒， ■二* R -, ヲ 
:…ヲチヲヲチテナチチツテ* • 
::ス！チ7チウ|(チデチ 
:クチヴ手タツツヴヴヴヴヴ: r プチ7 
=チラテテ 1 ゾヴテトラヴヲ GTIJK 
:テ . . 




■ f 千 ~ f 千千 f f 


1116 

11170 

1.1100 

TOTAL 

TOTAL 


5001 

50DC 


46 

no 


ERRORS 00000 0000 
WARNINGS 00000——00000 


PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=50DC 
PROGRAM ENTRY ADDR=**** 


c?i< ec?^H 5000 
File Nama 


message 


FCC 

FCB 

END 


!Fi le 
¢00 


Name : 


LO 

30 

%0 

K > 

t jO 

bO 


PRINT* 1 In case casset binary file , this program doesn 
PRINT 1 ' because the aap between block and b I ock i ^ short 
PRINT 11 and the motor stop over the gap .’■ 

PRINT^So f save binary file with long gap in advance 

PRINT M C01E9) #$0A ---> #$80 M 

PRINTS Or , push REV tch -for a moment ever y gap , 11 


t run correct1y 


Ready 





スクエディタ 


一 5 — 6 サンプル）の実行例 


RUN 

DRIVE : ：!. 
TRACK si 
SECTOR:1 


OB 1 

c 1 c 

AF1 

o1 c 

9 31 

-u c c 

7 2 8 

cc :2 

s 17 
0 c 2 

612 

rc c 

555 

o C2 

43 4 
O c 2 
















4 —4 カセット入出カルーチン 

4 — 4—1 カセット入出カルーチンの概要とワーク土リア 

カセット入出カルーチンのうち，上位ルーチンはカセット用バッファ （0 5 E 
D 〜 06 EB ) との入出力，下位ルーチンは B I 0 S を使って直接カセットとの 
入出力を行っています.上位ルーチンは， $ C 9 E 8-$ C 9 F 8のジャンプデー 
ブルを先頭に， $C 9 FA〜$CC 3 3 に配置されており，下位ルーチンは$ 
D 8 D 8 〜$D 7 F 5 に配置されています.以下に各サブルーチンについて述べ 
ていきますが，ワークエリア名は下表に示すために省略します.なお，“バッフ 
ア”というのは 4 — 4節ではカセット用バッファ （0 5 ED 〜 0 6 EB ) を指し 
ます. 


表4 • 4 • 1 カセットの使用するワークエリア 


7—クェ U T 


機 能 


解- 説 


(0 1 E 9 (0 1 E A ) 


ギャップの出力定数；データの fh 乃をむう前のモータの状態が， ON な 
( 0 I E 9 ) = S D A (10) バイト ， OFF なら (Q 1 E A ) = S F F 
バイトのギヤノフ（: - SFF > を出力します. 




¢0 2 8 0 : 0 2 B 


(0 2 CC ：02 CD ) 


カセツト用バッファポインタ：々セット ffj バ y ファの: t 姐アドレス ( $ 0 
5 E D ) の値を持っておリ*人出力にあたってこの侦が#照されます. 
カセット入出力先頭アドレス；々セットの1ブロックとの入出力を ji うとき 
の_データの: t 如アドレスです. 


(U 2 C E ) 


0 2 C F ) 


プロツクのタイプ；；!/セットの〖ブロックのタイプで，々セットとの人出力 
の際に，ブロックの先頭に出ガ,あるいは人力されます制 4 *1*1). 


( 0 2 D 0 


0 2D1) 


ブロックの長さ ； この値が，人出力のブロックのバイト敦を決定しますぐ M 


カセツト使用フラグ；あるフ T イルが々セットを便 Hj していることをボしま 
人カモード…$ 01 出カモード…$02 


バツファ中のデータ数；上位ルーチンがバッファをアクセスする跺のバッフ7 
中の有効データがどの位あるか示します. 


¢0202 : 02 D 3) バッファ中のポインタ；上位ルーチンがバッファをアクセスする阶の，アク 

i セスするデータのアドレスを示します. 

2 D 4 ) 


0 


テープファイルモー ド； そのテープフ t イルの モードを 示します.内界は t 
I フ T イルの T スキーフラグ <0 2 DC } と W 様です.また，この内好が （0 
1 2 D 6) に代人されるため ， アスキーフラグが立っていれば*.!ブ d ック人 
出力の後ではモータが0 F F します， 


(0 2 0 5 ) 


エラーフラグ； S 0 0 " •エラーなし $ 01…チヱックサム遂 いの エラ 
$ 0 2…较み取り失敗のエラー 


0 2 0 6 ) 


モータスイッチフラグ；1ブロックの入出力が終わった後のモータの状態を 
決めます. $ 0 0 .-ON S FF … OFF 


0 2 0 7) 


0 2 0 8 ) 


モータ状朗フラグ；モータの状態をボします. 
FF 


FF …0 N S 0 0…〇 


ファイル名出カフラグ：ファイルのヘッダブロ ■/ クを说み込む除に ， r Sea 
rching 」 や 「 Found 」などのメッセージを_ [ fij に_十■力するかどうかを決めま 
す. $ 0 〇…川力する 
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カセ 


h のファ 


通りですが，各々の 



マットは，文法書2 . 


0.1 に書かれている 


フォーマットを下図にボしま 



1ブ□ックの内容 


卜 $ F F ) 

モータ ON の 状態では, 
1バイ M t ) 1 F 9 
0 FF の状態では, 





















4 — 4 — 2 カセット オープン （ OPEN ) ルーチン 


アドレス 

機能 

レジスタ 

入力情報1 


復帰情報 


WORK 


SUB 


終了条件 


$CA 0 B〜$CA 8 C 

カセットに割り当てられたファイルをオープン （ OPEN ) する. 


A ， B ， X , U 


A レジスタ 




ファイルのモード（入力…$10，出力…$ 2 0 ) 


入カモードの場合は必ず 
しも設定しなくてもよい 


(0 2 DD ) =ファイル名の長さ 

( 0 2 DE 〜13 2 E 5) =ファイル名 
( 0 2 D 4 ) =テープ フ ァイルモード 
( 0 2 D B ) =ファイルタイプ 
( 0 2 DC ) = アスキー フラグ 
(fl 2 D 0 ) =カセット使用フラグ（入力…$ 01 f 出力…$ 0 2 ) 


入カモードの場合は 
復帰情報になる 


( 0 2 D G ) =モータスイッチフラグ 


(〇 

2 

B 

Q : 

0 2 B 1 ) 

® , 

(〇 

2 

C 

C : 

0 2 C D ) 

⑱ 

(0 

2 

C 

E ) 

⑱ 


( 〇 

2 

C 

F ) 



(〇 

2 

D 

〇 ) 

⑰/⑱ 


(〇 

2 

D 

1 ) 

⑱ 


(〇 

2 

D 

2 : 

0 2 D 3 ) 

⑱， 

(〇 

2 

D 

4 ) 



(〇 

2 

D 

6 ) 

⑱ 


(〇 

5 

E 

D - 

- 0 0 E B ) 

⑰/⑱ 

(〇 

2 

D 

日） 

⑧/⑱ 


(〇 

2 

D 

〇) 

®/® 


(〇 

2 

D 

D ) 



(〇 

2 

D 

E - 

，〇 2 E 5 ) 



$CA 7 0— カセツト用のポインタ初期化ルーチン 
S C A 8 D — カセット1ブロック入カル ー チン 


$ C B 5 7 ―ヘッダブロックの入力とファイル名表示ルーチン 
$CCAC — ファイル名転送ルーチン 
$ D 7 7 2 -> モータ 0 F F ルーチン 

$ D 7 9 4— カセット1ブロック出カルーチン 
$ E C 0 5—音関係初期化ルーチン（バッファのクリアを実行） 

カセットか使用中なら〔（ 0 2 D 1 ) キ0〕， Device In Use ” ェ 
ラー （$ CAAE ) を発生させる. 

出カモードでファイル名の長さがない〔 （ 0 2 DD ) =0〕場合は 
"Bad File Descriptor ” エラ ー （$ CCFC ) を発生させる. 

入カモードでヘッダの読み取りに失敗すると “Device I/O Error ” 
( SCAB 1 ) を発生させる. 
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m _ m ] 動作内容は，出カモードと入カモードで異なる部分があります. 

( 1 ) 出カモード，入カモード共通部分 $C A 0 6 —$C A 17 

書カセット使用フラグ （0 2 DO ) が立っていれば，エラーにします. 

• PLAY 文と同じバッファ領域 （0 5 ED 〜0 6 EB ) を使阳している 
ため，バッファ領域と音関係の初期化 （$ EC 0 5) を行います. 

(2) 出カモード $ CA 18 〜$CA 72 

•ファイル名 （0 2 DE 〜0 2 E 5) ，ファイルタイプ （ 0 2 D B ) ，ア 
スキーフラグ （0 2 DC ) , テープ ファイルモード （ 0 2 D 4 ) をバッ 
ファ （0 5 ED 〜0 6 EB ) に設定した後，カセットを動かし 〔（ F D 0 
0) C 2)〕，10秒待った後にカセットに出力し （$ D 7 9 4 ; 
図4 . 1 • 2 参照），モータを OFF し，カセット使用フラグ （0 2 D 
0) を立て，モータスイッチフラグ （0 2 D 6) を設定します， 
•バッファのポインタの初期化 （$ CA 7 0) を行います.[(0 2 D 2 ： 
02 D 3) — $05 ED ， (02 D 1) ^-$00]. 

(3) 入カモード $ CA 73〜$ CA 8 C 

♦へッダブロックをバッファに読み込み，ファイルの指定のある場合は目 
的のファイル名であるかを確認し （$ CB 5 7) ，バッファのポインタ 
の初期化を行います （$ C A 7 0) , 

•ファイルタイプ （0 2 DB ), ア スキー フラグ （0 2 DC ), テープファ 
イルモード （0 2 D 4 ) ，モータ スイッチ フラグ （ 0 2 D 6) を設定し， 
次の1ブロックをバッファに入力し （$ CA 8 D ) ,カセット使用フラ 

グ （0 2 D 0) を立てます， 


4 _ 4 — 3 カセット クロ ー ズ （ CLOSE ) ル ー チン 


アドレス I $ C A B 6 — $ C A E 3 

機 能 J カセットに割り当てられたファイルをクローズ （ CLOSE ) する. 
レジスタ| A , B , X 

A レジスタ=ファイルモード（入力…$10 ,出力…$ 2 0 ) 

( 0 2 D 0 ) @ , ( 0 2 D 1 )( R ) 

S U B I $ C B 3 6 , $ C B 3 8 -> 1ブロック出カルーチン 

S D 7 6 F , $D 7 7 2 — モータ ON , OFF ルーチン 


入力情報 

WORK 
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^_ mj 出カモードでは，事前に次の動作を行っています. 

•バッファにまだ出力されていないデータが残っていれば （（0 2 D 1) 与 
0) ，データブロックとしてそれを出力 （$ CB 3 6) します. 

•次にエンドブロック（図4 • 4 • 3 ) を出力 （$ C B 3 8使用）し，その後モー 
夕を ON ($ D 7 6 F ) して，テープに約1〜2秒の空白領域を作ります. 

入カモードと出カモードで共通に次の動作を行います. 

•モータを OFF ($ D 7 7 2 ) し，カセット使用フラグ （02 D 0) をクリア 
して，カセットを使用しているファイルがなくなったことを示します. 


4 — 4 — 4 カセツト出カルーチン 

カセット出カルーチンは4つありますが,その各々を上位ルーチンから下位ルー 
チンヘと順#に並べると，$ C B 1 E (バッファに 1 バイト出力），$ C B 3 6 
(1 ブロック出力上位ルーチン），$ D 7 9 4 ( 1 ブロック出力下位ルーチン）， 
$ D 7 E 3 (1 バイトを直接カセットへ出力）というようになっています. 

図4 • 4 _ 5 カセツト出カルーチン 



バッファの 内容を 
カセットに出力 


t バイト出力は 
$ D 7 E 3 


カセツ 


TO 



長さ 

(0 2 01) 

7 


驗:海 S 涵恐 


ホインタ 

(0202: 0 2 0 31 


A レジスタの内容をバッファに出力 


(1) カセット1バイト出力（バッファに）ル ー チン 


アドレス I $ CB 1 E 〜$ CB 3 5 
機 能カセット（バッファ）に1バイト出力する. 

レジスタ， A ， B , X 

入力情報1 A レジスタ=出カデータ 

WORK ] ( 0 2 D 1 )®/® , ( 0 2 D 2 : 0 2 D 3 ) 

S U B I $cB 3 6 —バッファからカセットへ 1 ブロック出力する 


®/® 
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I 解 説 I ポインタの示す バッファ 内のアドレスにデータを1 ノくイ ト出力しま 
すが，バッファがいっぱいの場合は，バッファの内容をデータブロックとして力 
セットに事に出力します.これをワークエリァとの対応で兄ると次のようにな 
リます. 

•バッファ内のデータの長さ （02 D 1) が255 (=$ FF ), 即ち，バッフ 

ァ®域がいっばいのときは，バッファの内容をカセットに出力します （$CB 

3 6). 

※出力した後は， （02 D 1) は0に， （02 D 2:02 D 3) はバッファの先 
頭{アドレス（二 $0 5 ED ) に設定されます. 

•ポインタ （02 D 2 : 0 2 D 3 ) の指すバッファ内のアドレスに， A レジスタ 
の内容を格納した後，ポインタ （02 D 2 : 0 2 D 3) を +1 します.同時に 
データの長さ （02 DU も +1 されます， 


(2 ) カセット1ブロック出力（バッファより）ルーチン 


アドレス 」 $CB 3 6, $CB 3 8 —$CB 4 A 
〔機 能 | バッファに格納されているデータを，データブロックとして （$ 
CB 3 6) ，あるいはその他のタイプのブロックとして （$CB 3 8) ，それぞ 
れカセットに出力する. 

レジスタ] A ， 巳， X 

[入力情報 I $ C B 3 8エントリの場合は， B レジスタにブロックタイプを代入 

しておく （へッド…$ 0 0，データ…$ 01，エンド…$ F F ). 
" WO ' R'KJ ( 0 2 B 0 : 0 2 B 1 )® , ( 0 2 CC ： 0 2 C D ) ® 

( 0 2 C E ) ® , ( 0 2 C F ) ® 

( 0 2 D 1) ® 

S U B _ l $C A 7 バッファポインタ，データ数の初期設定 

$ D 7 9 4 ―カセット〗ブロック出カルーチン 

解 説 1 $CB 3 6をエントリとしてこの ルー チンを呼んだ場合， （0 2 C 
E ) に $ 01を代入しているので，データブロック （図4 • 4 • 4 ) として出力 
されます.他のタイプのブロックとして出力する場合は， $ CB 3 8 をエントリ 
として，入力情報で示したようなパラメータを B レジスタに代入しておくと，そ 
れが （0 2 CE ) に代入されます.また，この後は次のような動作を行います. 
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•入出力先頭アドレス （ 0 2 C C : 0 2 C D ) にバッファ先頭アドレス$ 0 5 E 
D ( 0 2 B 0 : 0 2 B 1 ) を代入し，今回出力するブロックのバイト数 （ 0 2 
CF ) として，パ、 y ファ中のバイト数 （0 2 D 1) を設定します. 

©$0 7 9 4を呼んで，パ、ッファの内容を1ブロックとしてテープに出力した後， 
$ CA 7 0 を使い，パ'ッファのポインタ，データの長さの初期処理を行います. 


( 3 ) カセット1ブロック出力（彡凡用）ルーチン 


^ アドレス| $ D 7 9 4 〜$ D 7 E 2 

~ m , _ 能丨カセットに1ブロック出力する. 

レジスタ丨 A ， B， X 

入力情報 I ( 0 2 CC : 0 2 CD ) =出力するメモリ領域の先頭アドレス 

(0 2 CE ) =出力するブロックのタイプ 

( 0 2 C F ) =出力するブロックの長さ（バイト数） 

L_WO R K | ( 01 E 9 ) ® ，（〇 1 EA ) ® 

(fl 2 CC : 0 2 CD ) ® ， （0 2 CE ) ® 

( 0 2 C F ) ® ， ( fl 2 D 6 ) ® 

( 0 2 D 7 ) ® 

SUB ] $ D 7 6 F , $ D 7 7 2 —モータの 0 N，OFF ルーチン 

$ D 7 8 C ~> ギャップ出カルーチン 
$ D 7 E 3 —カセット 1 バイト出カルーチン 

解 説 1 動作の手順は次のようになります. 

•モータを ON ($ D 7 6 F ) します.モータを ON する前にすでにモータが0 
N 状態なら （0 1 E 9) の内容 （= $ 0 A ) の八イト数， OFF 状態なら （0 
1 EA ) の内容 （=$ FF ) のバイト数だけギャップを出力します. 

@1ブロック出力します （図 4 • 4 • 1 ). 

©モータスイッチフラグが立っていれば 〔（0 2 D 6)=$ FF 〕， モータを OF 
F ( $ D 7 7 2 ) します（この部分は，他のサブルーチンからも呼ばれており， 
その エン トりは$ D 7 D D です）. 

※ユーザがバッファを 介して データを 出力す る 場合には，$ C B 3 6を使った方 
がよいのですが，八ッファを介さないでメモリの内容を出力させたい場合には， 
このルーチンを使った方が有効とな 1 )ます. 
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( 4 ) カセット 1 バイト出力（直接カセットに）ルーチン 


アドレス I $ D 7 E 3〜$ D 7 F 6 

^_ W ] カセットに A レジスタの内容を直接出力する. 

レジスタ 1 A , B , X , Y (全て保存） 

入力情報， A レジスタ=出力するデータ 

復帰情報 1 C フラグ=エラー発生時にセットされる 

WORKl ( 0 5 A 0〜0 5 A 2 ) = B I 0 S への RCB 用⑱ 

S U Bl $ 0 0 D E->B I 0 S ジャンプルーチン 

$ D 6 7 8 — Abort ルーチン 

解 W ] BIOS の CTBWRT 〔システム仕様 2. 1 . 4 ( 2 )〕を用いて力 
セットに A レジスタの内容を出力していますが，ブレーク.キーのチェックを行 
つているので，ブレーク • キーを押した場合は Abort します. 


4 一 4 一 5 カセット入カル ー チン 

カセット入カルーチンも，出カルーチンと | H ] 様に，4つのサブルーチンがあ 
り，各々が出力の場合と同じレベルで対応しています.これらは，上位ルーチン 
から順番に $ CB 02 (バッファから1バイト入力）， $ CA 8 D (バッファに 
1ブロック入力），$ D 6 D 8 ( 1ブロック入力）， $ D 7 3 E (カセットから 
1バイト入力〉となっています. 

図4 • 4 • 6 カセット入カルーチン 
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(1) カセット 1 バイト入力（バッファから）ルーチン 


アドレス」 $ CB 0 2〜$ CB 1 D 
_ s |] カセット（バッファ）から1バイト入力する. 

入力情報丨 A ， B , X 
"^埽情報1 A レジスタ=入カデータ 

(0 0 C 0 ) =入力するデータがないと$ F F に設定される. 

WOR K I ( 0 2 D 1 )®/® , ( 0 2 D 2 : 0 2 D 3 ) 

( 0 fl C 0 ) =入カデータ終了フラグ © ■ 

SUB ] $ CA 8 D — カセットからバッファへ1ブロック入力 

f 説| このルーチンの®?作内容は，次のようになります. 

•データがない[(0 2 D 1)= 0] ときは， （00 C 0) を反転させて$ F F とし， 

リターンします（終了判断)， 

•それ以外のときは，ポインタ （0 2 D 2 : 0 2 D 3) の指すバッファ （0 5 E 
D ~ 0 6 E B ) 内のアドレスから A レジスタに1バイト読み込んだ後，ポイン 

夕 （02 D 2:02 D 3) を +1 し，データの長さ （0 2 D 1) を一 1 しま 

す. 

•このとき，バッファ内にデータがなくなったら 〔（0 2 D 1)=0〕 ，次のブロ 
ックをバッファに読み込みます （$ CA 8 D ). 

※ここで， （0 2 D 1) と （02 D 2:02 D 3) は読み込んだブロックがデー 

タブロックである場合には新たに初期設定されるのに対し，エンドブロックであ 
る場合には （0 2 D 1 ) = 0とし，次にこのルーチンを呼び出したときにファイ 
ルの読み込みが既に終 f していることが認知できるようにします. 

( 2 ) カセット1ブロック（デ ー タブロック，エンドブロッ 

ク）入カルーチン 


アドレス I $ CA 8 D〜$CAAD 

機 能 I カセットからバッファに1ブロック（データ/エンド）入力する. 
レジスタ ] A ， 日 ，X 

WO RK ] ( 0 2 B 1: 0 2 B 2 ) ®，（ O 2 CC :0 2 CD ) ® 

( 0 2 C E ) ® ， ( 0 2 C F ) ( R ) 
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( 0 2 01 


⑱ 


( 0 2 D 2 ： 0 2 D 3 ) ⑱ 



$ D 6 D 8 — カセツト 1 フロツク入カルーチン 
エラーの際は ， "Device l /〇 Error " ( SCAB 1 ) を発生させる • 

ワークエリアと関連づけて，次の動作が行われます. 

入出力先頭アドレス （0 2 CC : 0 2 CD ) にバッファの先頭アドレス$ 0 5 
ED ( 0 2 B 0 : 0 2 B 1) を代入 U $ D 6 D 8を使い1ブロックをバッフ 



ァに 取り込みます.このとき，エラーが起こ 




場合や， 


7 ダブロックを読 


み込んだ場合〔（0 2 CE )= $ 0 0〕は，$ CAB 1にジャンプします.また, 


エンドブロック((0 2 CE )=$ FF 〕 のときは，この時点でリターンします. 


參ブロックの 長さ （02 CF ) を兄て，0である場合は始めからやり直します. 
それ以外のときは， ブロックの 長さを バッファ 中のデータ数（〇 


2 D 1 


代 



人し，ノぐゾファの先デ 


D 3 ) に代人します. 


レス$ 0 5 E D をバッファポインタ （ 0 2 D 2 : 0 


( 3 ) カセット1ブロック入力（乳用）ルーチン 


アドレス」 $ D 6 D 8〜$ D 72 F 
m W ] カセットから1ブロック入力する. 

レジスタ I A ， 巳 ，X 

入力情報| ( 0 2 CC ： 0 2 C D ) =入力先頭アドレス 
復帰情報 J (0 2 CE : 0 2 C F ) =ブロックの（タイプ：長さ） 

巳レジスタ=チヱツクサムの値 
Z フラグ =エラーが’ないときにセットされる. 

WORK 」(0 2 CC ： 0 2 CD ) ® ， （02 CE ) ® 

( 0 2 C F ) ⑱ ，（〇 2 D 5) ® /⑱ 

S U B j $ D 7 3 0 —エラ"-がなくなるまで，1バイト読み込む 

$ D 7 3 5 — 1バイト読む.エラーの際はこのルーチンを終わら 

せる. 

$ D 7 6 F — > モータ 0 N ルー チン 

$ D 7 DD — (0 2 D 0 ) 0の場合は，モータを OFF する. 

m W ] 任意のブロックを読み込める，このルーチンは次の動作をします. 
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• 5 バイト以上のギャップ （=S FF ) を確認した後，$0 1, $3 C のブロック 
識別子を確認し， （0 2 CE ) にブロックタイプ， （0 2 C F ) にブロックの長さ 
をカセットから読んで，，代入します （ SD 730 と $ D 73 5 を使川). 
♦この後， （0 2 CC : 0 2 CD ) の示す先頭番地から， （0 2 CF ) の示すバイト 
数だけデータを M み込みます （$ D 7 3 5使⑴).この問，チヱックサムを計算 
し，最後に説み込むチヱックサムと照合し，遠っていれば （ 0 2 D 5 ) に$ 01 
を代人します.終わりに$ D 7 DD を使い，モータの OF F を決定します. 


(4 ) 1バイト入力（直接カセツトから）ルーチン 


—アドレス」 $ D 73 E 〜$ D ?57 ($ D 7 3 0 ~$ D 7 3 4 ) 

機 能1カセットから A レジスタへ1バイト入力する 
I レジスタ I A , X ( B , X , Y は保存） 
j 帰情報| A レジスタ=カセットからの入カデータ 

C フラグ=エラーの場合，セットされる 
[WO R K ) ( fl 5 A 0〜0 5 A 2 ) = B I 0 S への RCB ®/® 

SUB $ D 678— ■ Abort ル _ チン 

$ 0 0 DE — B 丨 OS ジャンプルーチン 

解 説 ] BIOSOCTBRED 〔システム化•様2 • 1 . 4 ( 3 ) 〕を川いてい 
ます.$ D 7 3 () はエラーがなくなるまで読み込みをするというものです. 

4 — 4 — 6 その他の王なカセット関係ル ー チンの概要 

( 1 ) モータの0 N • 0 F F 


アドレス j $ D 7 5 8〜$ D 7 8 B 
レジスタ I A , B , X ( X は保存） 

W] 0 N するのは $ I ) 7 6 F , $ D 7 7 8 , 0 F F するのは $ D 7 7 2， 
$ D 7 7 B ヒいうエントリがあリます.$ D 7 7 8，$ D 7 7 B はモータの状態 
フラグ （ 0 2 I ) 7 ) を変化させません（このルーチンは B I 0 S の MO T 0 R を 
用います）. 
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( 2 ) ヘッダブロックを読み込んで， 


フアイル名を画面に出力 


ァ \ 

•'レス 


解 

説 


$ C B 5 7〜$ C B B 4 


フアイルのへッダブロックを入力し，ファ 


ル 


名の衍定があれば， 


その照介を行います . B A S I C のプログラム中でなければ 


F 0 U N 


D : 


フア 


名や "SKI P 


などを表习 


指'/] I のフアイルと! M なると 


きは，冉びファイルのへッダの読み込みを繰り返します, 


4 — 4 — 7 サンプル 

カセットから1ブロック読み込み，その内容を16巡数で表示させるというサ 

ンプルです.注意すべきことは， バイナリセーブの場合，ブロック間のギャッ プ数 
が短いため， 続けて読むときにブロックを〗つ読み飛ばす ということです • これ 
を防ぐには， 少し巻き戻しておくか，セーブする際にあらかじめ （0 1 E 9) の 
ギャップ 数を$ 8 0 ぐらいに増やしておくことが必要です.なお，このルーチン 
ではデータバッファとして$ 4 0 0 〇〜のメモリ空問を使⑴しておリます • 


PAGE 001 ¢821201,00073 2) CASSET 


01000 





* Load 

1 Bio 

0 101 0 





* and 

Print 

01020 






NAM ■ 

01 030 






OPT 

01 040 



0000 



SETDP 

01050 

5*：>00 





□RG 

01 060 

5000 

BD 

D76F: 



JSR 

01070 

5003 

5F 




C し RB 

010 BO 

5004 

34 

04 



PBHS 

01090 

5006 

OE 

4000 



LDX 

01100 



5009 


REP 

EQU 

0111 0 

S009 

BD 

0730 



JSR 

01 120 

50 OC 

81 

01 



CMP A 

0 U 30 

500 E 

26 

F9 

5009 


BNE 

01140 

5010 

BD 

0730 



JSR 

01 150 

5013 

81 

3C 



CMPA 

01 160 

SO15 

26 

F2 

5009 


BNE 

01 】フ 0 

5017 

BD 

0730 



JSR 

011 BO 

501A 

ft7 

90 



STA 

01190 

501C 

BD 

D 730 



JSR 

01 200 

50 J F 

A7 

80 



STA 

0 1210 

5021 

A7 

E4 



GTA 

01220 



5023 


REP2 

EQU 

01230 

5023 


09 

502E 


BE0 

0 1240 

5025 

BD 

0730 



JSR 

01 2150 

502 G 

A7 

BO 



STA 

01260 

502 A 

6 A 

f：4 



DEC 

01270 

5020 

20 

FS 

5023 


ERA 

01260 



502 E 


ESC.I 

EQU 

01290 

502 E 

BD 

D 730 



JSR 

01 300 

fot ； j31 

A7 

34 



STA 

0131 0 

5033 

BD 

D 772 



JSR 

01320 

5036 

cr 

■:， J 

04 



PULS 

01330 

^03B 

OF 

BF 



C し R 

0 1340 

503 A 

30 

8D 0057 


L.EAX 


from Casset 
t it 
匚 ASSET 
MEM,NOGEN 
% 00 
¢5000 
$D76F 


★ MOTOR GN 


B 

#¢4000 

篑 

¢0730 
#¢01 
REP 
多 D 730 

REP 
¢1)730 
， X + 

本 D 730 
,50 

ESC1 
¢0730 
, X + 

T Q 

REP2 

■泽 

漆 D 730 
, X 

¢0772 * 

B 

SBF 

MES 卜 1,PCR 


* ¢01 Check 


* 车 _3C Check 


* B 1 dc k Type Input 

♦ Bloc 卜 Length 1 n p u t. 


箦 

箐 


1 + Length 
Data I no Lit 




0 then qsc 


* Check Sum Inpu 


MOTOR OFF 





01350 

503 E 

BD 

9BDB 


J5R 

01360 

5041 

BD 

9BS0 


JSR 

0 1370 

5044 

108E 

4000 


LDY 

01380 

5048 

30 

8D 0055 


LEAX 

01 390 

504 C 

BD 

9BDE 


JSR 

01400 

504F 

A6 

AO 


し DA 

01410 

5051 

BD 

AC3D 


JSR 

01420 

5054 

BD 

9B50 


JSR 

01 430 

5057 

30 

BD 0072 


LEAX 

01440 

505 B 

BD 

9BDB 


JSR 

01 450 

505 E 

Ai 

AO 


し DA 

0 1460 

5060 

34 

02 


PSHS 

01470 

5062 

BD 

AC3D 


JSR 

01 400 

5065 

30 

8D 0076 


LEAX 

01490 

5069 

BD 

9BDE 


JSR 

01500 

506 匚 

ED 

9B50 


JSR 

0 1510 

506 F 

6D 

E4 


TST 

01520 

5071 

27 

12 5085 


BED 

01 530 



5073 

REP3 

EQU 

01340 
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A 6 

AO 
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01 550 
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BD 

AC3D 


JSR 

01560 

5070 

BD 

7 し ‘ Z 


JSR 

01S70 

507B 

BD 

9C つつ 

r at— Jt* 


JBR 

01 580 

507E 

6A 

E4 


DEC 

01590 

5080 

26 

FI 5073 


BNE 

01600 

5082 

BD 

9850 


JSR 

01610 



5085 

ESC2 

EQU 

01620 

5085 

30 

8D 005 D 


LEAX 

01630 

5089 

BD 

9BDB 


JSR 

01 640 

50SC 

A6 

A4 


し DA 

01650 

508 E 

BD 

AC3D 


JSR 

01660 

5091 

BD 

9B50 


JSR 

0 i 670 

5094 


G4 


PUIS 

01600 



5096 

MESi 

EQU 

01 690 

5096 


31 


FCC 

01700 

50 A1 


00 


FCB 

01710 



50A2 

MES2 

EQU 

01720 

50 A 2 


42 


FCC 

0,1730 

5 0E6 


20 


FC 匚 

01740 

50CD 


00 


FCB 

01750 



50CIE 

MES3 

EQU 

01760 

50CE 


42 


FGC 

01770 

50DF 


00 


FCB 

01730 



50 EG 

MES4 

EQU 

01790 

30 EO 


20 


FCC 

01. 800 

50E6 


00 


FCB 

0 1810 



50E7 

MES5 

EDU 

01820 

5 0E7 


43 


FCC 

01 830 

50F5 


00 


FCB 

01840 



5000 


END 

TOTAL 

ERRORS 

: 00000——00000 




TOTAL WARNINGS 00000—00000 


PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR-50F5 
PROGRAM ENTRY ADDR=5000 


EXECS^H 5000 
1 BLOCK DMP 

BLOCK TYPE (SOOTHEAD $01=DATA $FF=END) 
BLOCK LENGTH $14 Bytes 
56 49 50 2E 46 4D 2D 37 00 00 

CHECK SUM _■ ¢28 

Ready 


$9BDE^ * Messagel Printout 

嚷 7B30 * Line Feed 

#¢4000 
MES2-1,PCR 

5>9EDB * Message2 Printout 

,Y+ * B1 ock Type Printout 

$AC3D * Hex $ F*r i nt out (A register) 
$9850 * Line Feed 

MES3-1,PCR 

^9BDB * Messages F :, r i ntout 
,Y+ ^ EU ock Length Printout 

A — 

*AC3D 升 HeK$ Printout 
MES4-1,PCR 

$9BDB * Messag©4 Printout 

$9B50 并 Line Feed 

tS 

ESC2 ★ If Length = 0 then esc2 


T Y+ 

* 

Data 

Printout 

*AC3D 


He k $ 

Printout 

$9C22 


Space 

Printout 

¢9022 




,S 




REP3 




¢9650 

羞 

菁 

Li ne 

Feed 

TT 

MES5-1 

,PCR 


«9BDB 

并 

MessaeS Printout 

，Y 

景 

Check 

Sum Printout 

JAC3D 


Hex $ 

Pr i ntuot 

¢9850 

箐 

Line 

Feed 

PC t E 





普 


1 1 BLOCK DMP! 

$00 

菁 

!BLOCK TYPE ($00=HEAD * 

! $01=DA 丁 A ^FF^END) -• S! 

¢00 
朞 

! BLOCK LENGTH • • 9> ! 

$00 

簧 

! Bytes I 
$00 

箐 

!CHECK SUM $ ! 

¢00 

¢5000 


• $00 

00 00 00 00 00 00 00 00 00 00 
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4—5 ディスク入出カルーチン 

4— 5—1 ディスク入出カルーチンの概要とワークエリア 

ディスク入出カルーチンは ， F A T とディレクトリスロットからフアイルの位 
置を割り出しています.この際，クラスタ番号 （0 〜151〉とクラスタ内のセ 
クタ番号 （0 〜 7) という論理的な番号から，トラック番号とセクタ番号に変換 
しています.ただし，変換のしやすさから，セクタ#号の値は一1されています 
(セクタ番号は〇〜31の値をとります），なお，名称やその内容については， 

4 —1 節や文法書の 2.10. 3を御参照下さい.また，本節では下図に示した 
ため，ワークエリアは省略しました. 

図4 • 5 •彳 ディスク入出カルーチンのワークエリア 
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7 


称および機能 


ドライブチーブルの t 姒アドレス： 

れます U ー イー4 (2 > および表1 


フ 


—ブルがある！：き 

2 参照 h 


の飯から針算さ 


ステムランダムバッファの 1 MT ドレス； D S K I $ , I ) S K 0 


使川されるファ 


ルバッフ r です U — 4 一 4 < 3 および及 


■ね N : り 

I .| 4 t f 


v r イルバッフ Y 林# 〇〜达#15の: t 虮アドレス； 2バイトすつ人リます.ただし， 
跑投入時に人力されたフ T イルバツファ玫より大きぃ祗り-の t ^( i $ 0 0 0 0になって 
ます （] 一4 - 1 ( 3 ) および在】 ■ 4 - 1〜2昝節 • 


トライブ纹一丨 { 0 - 3 ) ; F — B A S 丨 C ではドライブ浪じが〇から始まるので1つ少 

ない侦になっています • _ — _ _ 

ファイルバ_プ V v %% ( 0 - 1 r > ) :フ r イルバッ 7 r が #; i 0 から始まるので 1 つ少ない 1 

値になっていま 




セクタ入出力の： t 妯アドレス；セクタと入出力を U う除のデ-クの： tMT ドしスが人って 

います•一— ■ __ _ 

ドライブ番ゆ；人出力の呀のドライブ沿 1 ，〉を人れてお，ます. 

入出力機能 ： S 7 


C E 


能を次のよう 


之 


S 7 4 E 6を呼び出す肋に. BIOS に処坪させる入出力の檫 
ます，$ 0 0- RESTORE , $ 01 — 何も班櫂を行わない，$ 〇 


2 - D R E A D , S 0 3 - D W RITE 

セク 9 ^'/- 1:人出りの隨の:^除のセクク Sv より 


エラーステータス；入出力の RH こ B I 0 S か 


つ少ない飯を人れておきます. 
るエラ—洛兮が人ります. 


トラック裉け： 人出力の除の トラ 
BIOS を呼び出すための K C B 


ク番り-を人んてお5ます 


M 的のファイル名（ディレクトリスロット）のムるトラック1内のセクタ f 5 v - 1 

■■■-. 二” — I 一.- .. 1 i ；!' 'T I I - - ■ i ■■■» ■ I - " ■- - — — 一 — 1 '■- ——■■■_■■■■■;-■， " ■•■■ ■: -- '' 

H 的のファイルのディレクトリス〇ットのあるセ7 :レを iJim ディ x クぺッファに威み込ん 

だ >：きの，ディレクトリスロットのバッフ r 内の圯如 T ドレ又 




11的の7ァイルの先頭クラスタより 
[ I 的の7 r イルのランダムアクセスフラグ 
十きデ < レクトリ X ロットのあるトラック1内のセクタ很 - 
千:きデイレクトりスロマトのあるセクタを ifl 川デイスクバッフ了にぶみ込んだ t き 
イ|レクトリスロ./卜のバッファ内の: t 頭アドレス 
仇川ディスクバッフ T 


312 
；■； 1: i 


叫/ i :. アクセス中乃ファイルバ/ファの} 
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4 — 5 — 2 ディスクオープン （ OPEN ) ルーチン 


アド レス 

機 能 

レジスタ n 

入力情報1 


復帰情報 


WORK 

SUB 


終了条件 


$ 7 713〜$ 7 8 3 A 

ディスクに割り当てられているファイルをオープンする. 

A ， 巳， X , U 

B レジスタ=ファイルの入出カモードのモード文字 （ M 丨”， 

«〇” , ， 《 R ，， ) のアスキーコード 

(0 0 BF ) =ファイル番号 
(0 2 D B ) =ファイルタイプ • 

( 0 2 DC ) =アスキー フラグ 
(0 2 DD ) =ファイル名の長さ 

(0 2 DE 〜〇 2 E 5 ) =ファイル名（アスキーコード） 

(0 2 E 6 ) =デバイス番号 （ S $ 8 0 ) 

(0 2 DA ) =ファイルのモード 
そのファイル番号の S FD (システムファイルディスクリプタ） 

省略（図4 • 5 • 1参照） 

$ 7 4 AB — ファイルバッファの先頭アドレスの頭出し 
$74 BD — ドライブテ ー ブルの先頭アドレスの頭出し 

$74 C E — セクタ入出カルーチン 

$7 5 D 4 —「K I L Lj ルーチンの実行部 

$ 7 6 2 C — ディレクトリ探索ルーチン 

$ 7 6 B E -> ファイルがディスクにあるかどうかのチェック 

$7698—ファイルがすでにオープンされているかどうかのチェ 

ック 

$7 6 B F -> I D 確認と FAT のドライブテーブルへの読み込み 
$783 B — ファイルバッファの初期化ルーチン 
$ 7 8 5 F — ディレクトリスロット， FAT の記入ル ー チン 
$7969—次セクタ設定ルーチン 

$7 9 AA — 「クラスタ，セクタ-►トラック，セクタ」変換ルーチン 
$ 7 A 3 7—次セクタ読み込みルーチン 
$ 7 A 8 6—ポインタを E 0 F まで進める 

エラーの あると きは，エラー コードを日 レジスタに入れて エラー 処 
理ルーチン （$ 8 DD 1 ) にジャンプする. 
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図 4 *5*2 ディスクオープンルーチンの動作 


$7713 


プログラムファイル^^ 

N 0 [ 

空き F B U F を探し，あれば 
その F B U F を割り当てる 


YES 


fD チェック， FAT をド 
ライブテーブルに読み込む 


ファイルバッフ 

it # 0 


6 B F 


空き FB U F かな 

とき 


デイレクトリを探索し，同名 
のフアイルがあるか調査する 


6 2 C 


モード 


7 7 8 6 


ファイルモード =$I0 


フアイル存在チェック ! 7 8 E 


ファイルオーブンチ エツ ク 7B8 


ファイルモード =S 2 0 


N 0 


ランダムアクセスフラグ 


ランダム 


ファイルタイブとア 
スキーフラグの設定 I 

i 

F B U F の初期化7 8 3 B 

1 」 

ファイルの先頭セクタ 
を F B U F に読み込む f } 


' ファイルがあ5?、 

J YES 

2グラムフアイ 

J YES 

^プログラムニ？ 〆〆 ^ 

^r^NO 

I L L 古いファイル 


N 0 


YE 


5 D 


古いファイルのあったデ 
ィレクト 1 J の位置を記境 

-^ 

;ディレクトリの記入， 
FAT の記入 


8 5 


F B U F の初期化7 8 3 B 


6 3 


B 6 


BE 


8 2 2 


ファイルモ _ ド =S 2 0 


フアイル存在チェック 


8 E 


ファイルオープンチェック7 6 9 8 


ランダムアクセスフラク ：! 


ランダム 


F B U F の初期 K ： 定7 8 3 8 
— ..... —] 

最終クラスタ探し 

i 

FCB に最終クラスタ，ク 
ラスタ内のセクタ番号 

I 

トラック，セクタ番号変換| 7 9 AA 

I — 

FBUF に DREAD : 7 4 CE 

I 

DWRITE J 7 4 CE 

ポィ，ぶ上 0 F ll 7 A 8 6 

まで進める 


バッファ内が 
杯か 5" _ 


N 0 


YES 

次のセクタを設定7969 

7 81 C 



デイレクトリの記入 
F A T の記入 


之ンダムアクセスフラム 


F B U F の初期化 



レコート 

/番号 =1 


3 B 


7 8 3 A 


他の エラー について： i , サフ， 

ルーチン内部で発生すれば， 
そこ から エラー 処坪ルーチン 
へシャンフする 


ドライブテーブルのアクセス数を+丨する 


S F D の設定 


(X)… “Too Many Open Disk Files 

② … "Bad File Mode " 

③ … ’File Already Exists " 


S 7 7 7 D 
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^ 説 I このルーチンの動作を 図 4 • 5 . 2 に基づいて説明します. 

•プログラムファイル〔（0 0 BF )=$ 11〕なら FBUF (ファイルバッファ 

# # 0を割り当てますが，データファイルの場合は空き FBUF を探し （FB 
UF 番号の大きいものから順に），未使用の F B U F があればその F BUF に 
割り当てます. 

■ I D セクタのチヱックをし，まだ読み込んでなければ，ディスクから FAT を 
ドライブテーブルに読み込みます. 

•ディレクトリを探索し，入力情報で与えられたファイル名と同じ名をもつファ 
イルがあるか調査し，あれば （ 7 2 0 B 〜7 2 0 F ) を設定します. 

•この後は各モードに分かれ，そのモードの動作を行います.注意すべきことは 
« I ，，と《八，，のモードで，ファイルの存在チェックというのはディレクトリ 
探索が既に実行されているので， （ 7 2 0 B ) が設定してあるかどうかを判別す 
るだけで再度ディレクトリ探索をしているのではないということと，ファイル 
オープンチヱックを呼び出す際に ，I ”の場合は同じモードであれば複数個 
のファイル番号で，同一のファイルを開くことが許されるのに対して， ” A ” 
の場合にはそれが許可されないということです. 

癱各モードの処理が終わった後は，共通してドライブテーブルのアクセス数 （ 4 
-I - 3節参照）を+1して，ファイルモードと FBUF の番号から，そのファ 
イル番号の示す S FD を設定しています. 


4—5 — 3 ディスククローズ （ CLOSE ) ルーチン 


アドレス I $ 7 8 BE 〜$ 7 9 13 

機 能 ァ'ィスクに割り当てられているファイルをクローズする. 
レジスタ丨 A ， 日， X， U 

入力情報] A レジスタ=そのファイルの S F D 

B レジスタ=ファイル番号 

WORK | ( 0 0 BF ) ® ， ( 0 2 B 4 : 0 2 B 5 ) ® 

その他は省略（図4 • 5 • 1 ) 

SUB $74 AB — ファイル/ くッファの頭出し 

$ 7 4 B D — ドライブテーブルの頭出し 
$74 CE — セクタ入出カルーチン 
$ 7 5 FB — FAT 記入ルーチン 
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$ 7 914 —S F D からドライブ番号を割り出す 

$79 AA — クラスタ，セクタ-> トラック，セクタ変換ルーチン 

Is 説 |次のような手順でファイルを クローズして いきます. 

• ドライブテーブルの内容が FAT に 記入され ていない 場合，記入を行います. 
•出カモードで，まだデイスクに未転送のデ™夕が バッファに 残されている場 
合，それを出力します.このとき，データ終了を示す識別子として$1 A が出 
力され，そこから バッファの 終わりまでをクリアして出力されます（ただし， 
パ、ッファの 終わりでデータが終わっているときは出力するのみで，これらの®; 
理は行いません）. 

• ドライブテーブルのファイルのアクセス数を一1し，今まで使用していた FB 
UF の先頭に$ 0 0を代入して使用されなくなったことを示します.そして， 
そのファイルの SFD を$ 0 0にします. 


4-5_4 入出カル ー チン 

(1) ディスク 1バイト出カルーチン 


アドレス」$ 7 9 2 4， $ 7 9 6 9〜$ 7 9 8 E 

機 能| FBUF に1バイトのデータを出力する. 

レジスタ I A ， B ， X ， Y，U 

入力情報丨 （ S 〜 S + 7 ) =リターン時の A , B ， X ， Y ， U レジスタの値 

(S + 8 : S + 9 ) =リターンアドレス 
A レジスタ=出カデータ （1 バイト） 

日レジスタ=そのファイルの S FD の内容 

SUB 」 $ 7 4巳 D — ドライブテーブルの頭出し 

$ 7 4 CE — セクタ入出カル_チン 

$ 7 8 A 9 — FA T 記入ルーチン 

$ 7 9 9 0— 空きクラスタ検索.設定ルーチン 

$7 9 AA — 「クラスタ，セクタ-►トラック，セクタ j 変換ルーチン 

解 説 1次のような処理を行います. 

• B レジスタの値から，そのファイルが使用中のファイルバッファを選択します. 

•出カコ™ドが$ 0 D ( CR ) の場合 （FBUF + 6 ;データのレコード長）を 
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0 にします.また，出カコードが$ 2 0以 I . の場介は， （ FBUF +6) を +1 
してレコ ー ド M が増えたことを尔します. 

• ( FBUF +13 : FBUF +14) の値を+1して，それが$ 010 0以下 
ならば ，I /〇バッファのそのポインタの示す简所に A レジスタの内界を格納 
します.$ 010 0になった場合は，現在アクセス中のセクタに I / O バッフ 
ァの内容を出力します. 

• $010 0である場合は，この後$ 7 9 6 9以降で次のセクタをアクセスする 
ための FC B の設定を行います. 

© ( FBUF +13: FBUF +14) のボインタの値を0にします. 

©次のセクタを （ FBUF +4) に設定します〔ただし，クラスタ内にセクタが 
残っていない場合は， DRVTBL で空きクラスタを検索して，次のセクタを 
空きクラスタの先頭セクタに割り h てるように （FBUF + 3) を設定します〕. 

敷 FAT に記入します. 


(2) ディスク 1バイト入カルーチン 


ァ 

ドレス 

機 

m ] 

レジスタ 

入力情報 


復帰情報 


SUB 


$ 7 9 F 9〜$ 7 A 3 5 
F 巳 U F から1バイトのデータを入力する， 

A , 巳， X , Y ， U 

( S 〜 S +6) =リターン時の B ， X ， Y ， U レジスタの値 
( S +7 : S + 8 ) =リターンアドレス 
B レジスタ=そのファイルの S F D の内容 
A レジスタ=入カデータ 
(0 0 C 0 ) =データ終了時に$ F F になる. 

$ 7 A 3 7—次セクタ読み込みルーチン 


解 説」 場介によって励作が！ M なります. 

拳レコードが途中で切れている場介 ((FBUF + 1 1)=$ FF 〕 S , 蓄えてお 
いた入カデータ （ FBUF +12) の内容を A レジスタに与えます. 

拳人力するデータがない場合 〔（F B U F + 13 : F B U F + 14 ) = 0〕は， 

( 0 0 C 0 ) に$ FF を代人してリターンします. 

® 入カデータがある場公は，ポインタ （FBUF + 13 : FBUF + 1 4) の内 
容を一1し，データポインタ （ FBUF +5) の指すデータの内容を A レジス 
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夕に 代入して，データポインタを+ i します. この 際， I/O バッファに デー 
夕がなくなると，データポインタ （ FBUF +5) をクリアし，次セクタを I 
/〇 バッファに 読み込みます 〔 M 時に， （ FBUF +1 3 : FBUF +14) が 
再設定されます.ただし，エラーや ファイルの 終了時な どは 再設定されません〕. 


(3) 次セクタ読み込みルーチン 


アドレス」$ 7 A 3 7 , $ 7 A 8 6 —$ 7 A A 7 

機 有 i | データを入力するために， i /〇 バッファに データが なくなった際 

に次のセクタから，データを I /〇 バッファに 読み込む. 

レジスタ] A ， B , X , Y 

入力情報1 X レジスタ = FBUF の先頭アドレス 

復帰情報 1 C フラグ==ファイルの最後のクラスタの最終セクタで次のセクタ 

を読み込もうとしたときセットされる. 

SUB ) $ 7 4 BD — ドライブテーブルの頭出しルーチン 

$ 7 4 CE — セクタ入出カルーチン 

$7 9 AA — 『クラスタ，セクタ4トラック，セクタ」変換ルーチン 

$ 7 A 9 2—ポインタの初期設定処理 
$ 7 A A 0ーポインタのデクリメント（一1 ) 処理 
終了処王里1ファイルの最終クラスタのセクタ数が8以上になっていた場合 

(〇〜7が普通）は ， K Bad File Structure ” エラ ー 

解 説]アクセス中のクラスタ内セクタ番兮 （ FBUF +4) を+1して， 
その番号のセクタを読み込みますが，その番号が8になっていたときは，现クラ 
スタの継続クラスタの先頭セクタからデータを読み込みます.この際，そのク 
ラスタが継続クラスタを持たない場合，あるいはファイルが使用している最終セ 
クタでこのルーチンを呼び出した場合などは， C フラグをセットして何もしない 
でリターンします. 

次のセクタを読み込んだときは，ポインタ （FBUF + 13 : FBUF + 1 
4) を$ 010 0に冉設定します.しかし，読み込んだセクタが最終セクタの場 
公は，そのポインタを $1 A (データ終の識別子）の前までの値に設定しなけ 
ればなりません.これを行うのが$ 7 A 8 6以降です. 
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(4) セクタ入出カルーチン 


アドレス」$ 7 4 CE 〜$ 7 4 E 5 ($7 4 E 6 — $ 7 5 5 C ) 

機—能 I B I 0 S を用いてセクタの入出力，シークトラック0の処理を行う. 
レジスタ」 A , B , X ( B , X , Y , U は保存） 

力情報 I ( 71 FC : 71 FD ) =セクタの入出力の先頭ァドレス 

( 71 F E ) =ドライブ番号 （ 0〜3 ) 

( 71 F F ) =入出力機能 

$ Q 0 . RESTORE $ 01 . 無動作 

$ 0 2 . DREAD $ 0 3 . DWRITE 

( 7 2 0 0 )=セクタ番号一1 ( 0〜31 ) 

( 7 2 0 2 )=トラック番号 （0 〜3 9) 

復帰情報 ( 7 2 0 1 )=B I OS の設定するエラー番号 
SUB ] $ 7 4 E 6—セクタ入出力実行ルーチン 
[終了条件 I B I 0 S の設定するエラーにより” Drive Not Ready ” エラー， 

” Disk Write Protected '' エラー ， "Drive I/O Error ” を発生させ 
る （$ 8 D D 1 ). 

このルーチンは ， DISK BAS I C の根幹となる人出カルーチ 
ンです.このルーチンの下位ルーチン$ 7 4 E 6は， （7 IFF ) の値を参考 
に ， B I OS の RE STORE ， DREAD , DWR I T E を呼び出すための処 
理をするルーチンを （7 5 5 D 〜 7 5 6 4) のジャンプテーブルに従ってコ ー ル 
します.各々のルーチンは， （ 7 2 0 3 〜 7 2 0 A ) に RCB を設定して BIO 
S を呼び出します. 


4—5—" 5 その他の主なァィスク関係ルーチンの概要 

( 1 ) FAT 初期化ルーチン 

厂アドレス I $ 7 4 2 2〜$ 7 4 4 4 

ス多"1 A ， B , U ( U は保存されるが，入力情報として使用） 

^説1 (7 1 FE ) で指定するドライブの FAT の初期化（システム領域 
以外のものは$ FF で■.める）を行います.人力情報として他に （71 FC : 7 
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1 FD ) に U レジスタの値一 1 のアドレスを4えることと， （ 7 2 0 2 ) に$0 
1を代入しておくことが必要で，このルーチン終丫め:後に，$74 CE を呼び出 
すことによって初期化された内容が FAT に書き込まれることになります， 


(2) ファイルバッファ （ FBUF ) の頭出しルーチン 


ァ 

ドレス 

レジスタ 


解 

説1 


$7 4 A B t $ 7 4 B 




$ 7 4 巳 C 


B 7 X (B は保存されるが，入力情報として使用） 


4 AB エントリの際は （7 31 3) に， 




74 B 1 エントリの 


際は B レジスタに，それぞれ FBUF の番号 （$00〜$0 F ) を入力情報とし 
て与えると， （7 1 DA 〜 7 1 F 9) のワークエリアから，その FBUF の先頭 
アドレスを X レジスタに代入してきます.このとき，その FBUF が未使用なら 
ば Z フラグをセットして返してきます. 


(3) ドライブテーブル （ DRVTBL ) の頭出しルーチン 


ドレス I $ 7 4 B D 〜$ 7 4 C D 
レジスタ I A , 巳 ，X ( A , B は保存） 

W ] (7 1 FE ) のドライブ番号および， ( 71 D 6 ： 71 D 7) の先頭 
アドレスから，その DRVTBL の先頭アドレスを X レジスタに代入し，また， 
FAT をまだ読み込んでいないのなら， Z フラグをセットして返してきます. 


(4) FAT 記入ルーチン 


アドレス I $ 7 5 F 巳〜$ 7 G 2 B 
レジスタ I A , 巳， X , U 

解 説 j (7 1 FE ) で指定するドライブの FAT に DRVTBL の内容を 
記入します.この際，汎用ディスクバッファ （ 7 2 1 3 — 7 3 1 2 ) を使用して 

います，また，記入後の DRVTBL の先頭アドレス+1番地の内容をクリアし 

て記入済であることを示します. 
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(5 ) デイレクトリ探索ルーチン 


L アドレス I $ 7 6 2 C 〜 $ 7 6 8 D 

「レジスタ I A , B ， X ， Y，U 

m | (71 FE ) で指定するドライブのディレクトリの探索を行い， 

(0 2 DE 〜0 2 E 5) で指定したファイル名の探索，およびファイル名を特に 
指定しない場合は，空きディレクトリスロットの位置の探索をします（両者は別 
々にではなく M 時に行われます.これは，新しいファイルを作る場合な ど に両方 
の情報が必要となってくるためです)，この探索によって次のワークエリアを設定 
します. 

• ( 7 2 0 B ) 二指定したファイル名があるセクタ番号一1 (3 〜3 

1)，ファイル名がない場公は0になります. 

• (720 C -720 F ) ニファイル名がある場合は図 4-5-1 の内容が入り 

ます. 

⑩ (7210) 二空きディレクトリスロットがあるセクタ番号一1 

( 3〜31)，スロットがない場合は0になリます. 

• ( 7 2 1 1:7 2 1 2 ) =スロットがある場は図 4-5-1 の内容が入リま 

す. 


( 6 ) フアイルのオープンチエックルーチン 


アドレス]$ 7 6 9 8〜$ 7 6巳 E 

レジスタ I A , B， X ( A は保存されるが，入力情報として使用） 

解 (7 1 FE ) が指すドライブの，同じファイルをアクセスしている 

他のファイルバッファの有無を調べます，人力情報として A レジスタにアクセス 
したいファイルのファイルモードを与えます.同じモードならエラーは起こりま 
せん（才 ー プンル ー チンの ' A ” のモ ー ドでこのル ー チンを呼んでいるときは， 

A レジスタに$ FF を代入しているのでエラーになります）.このルーチンは， 
ディレクトリ探索ルーチンをあらかじめ呼び出してから使⑴します. 
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(7 ) i D 確認と FAT 読み込みルーチン 


アドレス I $ 7 6巳 F , $ 7 6 D 2〜$ 7 712 
レジスタ I A ， 巳， X， U 

解 説| $76 BF エントリの際はデバイス番号 （ 0 2 E 6) の示すドライ 

ブから，$ 7 6 D 2エントリの際は （7 1 FE > の示すドライブから，それぞれ 
F AT を DRVTB L に読み込みます.その際に I D 確認を行いますが，そのド 
ライブの DRVTBL をアクセスしているファイルがある場合は読み込みません. 
なお，このルーチンも i 凡用デイスクパ'ッファを利⑴しています. 


(8 ) ファイルバッファの初期化ルーチン 


アドレス I $ 7 8 3 B 〜$ 7 8 5 E 
レジスタ| A , B , X ， U 

|解 説| (7 31 3) の指す FBUF を初期化します. FBUF の内容をす 

ベてクリアした後 ， FC B の一部は次のように設定されます. 

• ( FBUF-f 1) 〔ドライブ# 号〕 -( 71 F E ) 

• (F B U F + 2 ) 〔ファイル先頭クラスタ番号〕= ( 7 2 0 E ) 

• (FBUF + 3) 〔アクセス中のクラスタ番号〕= ( 7 2 0 E ) 

® ( FBUF +7 : FBUF +8) 〔I /〇バッファ畏〕=(30100) 

• (FBUF 十 9: FBUF +10) 〔I /〇バッファの先頭アドレス〕 

二 FBUF の先頭アドレス+15 


(9) ディレクトリスロツト記入と FAT 記入ルーチン 

アドレス]$ 7 8 5 F , $ 7 8 A 9〜$ 7 8 B 9 
レジスタ] A , B ， X , U 

このルーチンもディレクトリ探索ルーチンを事 fiij に奧行する必要が 
あり， (7210) が示すセクタを汎用ディスクバッファに人れ， （7211: 

7 2 12) が示すバッファ内のデイレクトリスロットに次のものを設定します. 
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のセクタ番 


号から，トラック#りを（ 7 2 0 2〉，セクタ番号一1を （ 7 2 0 0 ) に返しま 
す.入力情報として， X レジスタに FBUF の先頭アドレスを入れておきます. 


•ファイル名 （0 2 DE 〜 0 2 E 5) 

鲁ファイルタイプ （0 2 DB ) とアスキーフラグ （ 0 2 DC ) 

@$ 7 9 9 0を呼び出し，その復帰情報で返されるクラスタ番号 
•ファイル モー ドがランダム ((0 2 DA ) = $40) ならランダムアクセスフラ 
グ （= $ F F ) 

以上のものを設定した後， バッファの 内落を再びセクタへ書き込みます.$ 7 
8 A 9からは，$ 7 9 9 0で変 K した DRVTBL の内容を$ 7 5 FB によって 
FAT に記入しています.$ 7 8 A 9から呼び出す場分は， CC を除く全てのレ 
ジスタが保存されます.なお，このルーチンを呼び出す際は （7 1 FE ) にドラ 
イブ番号， （ 7 2 0 2 ) に$ 01 ( トラック1 ) を設定しておく必要があります. 
※ディレクトリス ロ../ 卜内バイト位置に関しては，文法書 2.10.3 を御参照下 

さい. 


(10) 空きクラスタ検索•設定ルーチン 


L アドレス」$ 7 9 9 0〜$ 7 9 A 9 

レジスタ] A , B , X 

^ (7 1 FE ) の示すドライブの D R V T B L を検索し，未使用クラ 
スタ （= $ FF ) を発見した場介は，そこに$ C 0を書き込みます （$ 7 8 5 F 
ではこのルーチンを呼び出した後，ランダムモードの場介は，そこに $ FD を書 
き込みます）.このルーチンは復帰情報として， A レジスタにクラスタ#号と， 
X レジスタに上記 D R V T B L 内の該カクラスタを指すアドレスが返されます. 

(11) クラスタ番号，クラスタ内セクタ番号—トラック番 

号，セクタ番号変換ルーチン 


アドレス I $7 9 A A 7 9 C 1 
レジスタ| A , B， X 


F 

U 

B 


と 



夕 

ス 

ラ 

ク 

の 

\/ 

3 

一 r I■ : 

F 

U 

B 

F 

./ 1 % 
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4 ■— 5 _ 6 サンプル （ ディスクエディタ） 

ディスクをセクタ単位で，編谌するブログラムです.データバッファとして$ 
400 0〜$4100の領域を使⑴しています.なお，カーソル移動キーによっ 
て任意の場所に々ーソルを移動することができます.其行例は， 4-3-5 のサ 
ンブルの実行例とまとめてあります. 


10 "DISK EDITOR 
20 * 

■50 W ID fH 80 t 20 t' h i s command l s necessary i n this progaram 

40 1 *** Input ち Sector Read 

50 GOSUB 420 • key input 

60 EXEC を H 5000 

70 ' m** Screen Format *** 

80 PRINT ， .DISK: EDITOR FOR FM—7._ 

90 PRINT TAB (10) ; sPRINTUSINS "DRIVE :林# 丁 RACK :#轉 SECTOR :林林 11 1 DRV; TRK| SC 了 
100 PRINT TAB ⑷； 

1 10 FOR 1= 0 TO15 : PRINT 41 + ll ;HEX$(I) ; : NEXT I: PRINT 
120 FOR ^HOO TO ?-HF0 STEP fMlO 

130 PRINT RIGHTS ( W.+HEX* ⑴ ， 2) ; " : 

140 FOR J= mOO TO mOF 

150 PRINT RIGHT* (^O^+HEK* (PEEK (S<H 4000 + I-hJ > ) ,2) ; *' “？ 

160 NEXT J 

170 PRINT " :"; 

180 FOR J= mOO TO StHOF 

190 A= PEEK (?<H4000+I+J) 

200 IF A<^H20 OR A-:&H7F OR A=&HFF THEN A=^H2E 

210 PRINT CHR$(A)? 

220 NEXT J 

230 PRINT 

240 NEXT I 

250 PRINT "KEY H Q^ - ESCAPE THIS MODE f L f 一 HARDCOPY "; 

260 • ， ■ 斧 * Edit hm- 

270 EXEC 5018 

280 '箐ネ箐 Sec:tar Wri te *** 

290 LOCATE 0,1 9: INPUT l, D0 YOU WRITE THIS TO DISK CY/N) 11 ;A$ 

300 IF A$ :> r .Y" AND A$< > lt y" THEN 340 

310 INPUT '*D0 YOU WRITE SAME DISK CY/N) 11 ; A* 

320 IF A$ 二 " N" OR A$="n u THEN GOSUB 420 

330 EXEC 2<H500F 

340 於 Select Continue *** 

350 INPUT "DO YOU CONTINUE <Y/N) j 
360 IF ASO^'N 11 AND A$O ft n" THEN 40 
370 PRINT 11 BYE? M : END 
380 ' 箐 Er r or 普簧菁 

390 COLOR 2: PRINT"ERROR QCCURED IN NUMBER f M ; BEEP J COLOR 7 

400 GOTO 420 

410 '*** Procedure Key Input 
420 INPUT 11 DRIVE : " f DRV 
430 INPUT "TRACK : M ,TRK 

440 INPUT "SECTORS",SCT 

450 IF DRV>PEEK(?.H71FA) OR DRV <0 THEN A$^ M DR IVE 11 : GOTO 390 
460 POKE ?<H71FE, DRV 

470 IF TRK> 39 OR TRK < 0 THEN H TRACK 11 : GOTO 390 
480 POKE &H7202,TRK 

490 IF SCT> 32 OR SCT < 1 THEN A$= ,, SECTQR N ; GOTO 390 
500 POKE ル H 720 0,SCT - 1 

510 RETURN 
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REPEAT 
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D 6 D 7 6 o 7 o A 6 D D 7 6 7 o 1 2 B o B D 64DB7D 6171714 6 D57 6 c G c-7DF 1 5 oco9 
4 2 5 2 B8B 2 7 1 852 COB 2 82S 2 8 B B3 8 c F BA8 2 8 2 s 2 8 B 3 B 1 F 8 c 3 . B 5 B 2 B 5 2 3 


3 

19402 
5 O c- 3 o 
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4 — 6 コンソール入出力 • プリンタ出カルーチン 


4—6—1 BIOS 関連ルーチン 

コンソールの入出力では， B I 0 S に対する RCB や サブシステムへのコマン 
ドおよびパラメータを設定するルーチンが，その具体的な実行ルーチンとなって 
います.従って， サブシステム に対して機能する SUBOUT，SUB IN が頻 
繁に用いられています.これらを呼び出すための RCB は （0 5 AO -0 5 A 7 
に設定されます （ ROM 内に持っていることもあります）.また ， SUBOUT 
のときのデータバッファは （ fl 10 0〜017 F ) に ， SUB I N のときのデ ー 
タパ、ッ ファは （0 1 B 5〜01 B 9) に設定されます. 


( 1 ) 汎用 RC B 設定ルーチン 


アドレス| $ D 9 F 4〜$ DA 2 0 

機 能 I 入出力の RCB をワークエリァ （ 0 5 A 0 — 0 5 A 7 ) に設定する 
レジスタ1 A ， 日， X， U 

入力情報] U レジスタ =RC B の書かれている先頭ァドレス 
WORK 」（0 5 A 0〜0 5 A 7) =汎用 RCB 設置エリァ® 

m H u レジスタの値により，下表のような rcb が設定されます. 


表4 • 6 • 1 設定される RCB の内容 


: U レジスタ 

RQNO 

RCBSTA 

RCBDBA 

RCBLNH 

1 

R C B B M H 

5 A 0 

5 A 1 

； 

5 A 2：5 A 3 

■ 

5 A 4:5 A 5 

1 . . 

1 

5 A 6 ： 5A7 | 

i 

;- - ---- 

S D A 01 

$12)NPUT 

0 0 

1 ■■■一 -- - j iM ■■■ ■ ,,mi ■ ■ 

$0 4 ： 3D 

—_i 

i 

$0 0：0 0 

1 

i 

$01:04 

i 

$DA09 

$ 13 INPUTC 

0 0 

$0 4 ： 3D 

i . . . . ■■■■画 M i. ； 

$ 0 0：0 0 

i 

f 

$01:0 4 

r 

$D A 11 

$ 11 S U B 1 N 

0 0 

■ 

$01 ； B5 

! 

i 

$0 0:0 3 

1 

$ 0 0:0 5 

_ 

$ D A 19 

$ 10 SUBOUT 

0 0 

i 

$01:00 

1 

$0 0:0 4 

L__ : _ 

■ 

$0 0:8 0 

i 
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(2) SUBOUT PUT 設定ルーチン 


ア 

ドレス 

機 

能. 


$ D A 2 




$ D A 2 F 


B I OS に対しては SUBOUT を要求する RCB を，サブシステ 


ムに対しては PUT 要求〔システム仕様2_ 


3〉〕の RCB を設定する • 


_レジスタ| A ， B ， X， U (全て保存） 

WO R K I (0101： 010 2 ) ⑱ 

S _ J Bl$D 9 F 4-> 汎用 RCB 設定ルーチン 


^ _ mj U レジスタに$ DA 19を入れて汎用 RCB 設定ルーチンを呼び， 

3 111301；1'の1^0：6を設定した後， （0 101: 010 2) に$ 0 0 0 3を入 
れ，データの継続のない PUT 要求の設定をします. 


(3) SUBOUT PU T 初期設定ルーチン 


—アドレス」$ D A 3 0 ~$ D A 3 5 

W \ $ D A 2 1 の機能に加えてデータバイト数を 0 に初期設定する • 
レジスタ I A , B , X , U (全て保存） 

[WO R K ] (0103) ® 

S U B I $ DA 2 1 -> SUBOUT PUT 設定ルーチン 


(4 ) SUBOUT PUT 後続設定ルーチン 


ァ 

ドレス 

機 

能 

レジスタ 

入力1 

青報 

WORK 



$ D A 3 6 ~ $ D A 61 
P UT の出力文字列を設定していく. 

A t B , X (全て保存） 

A レジスタ==出力文字コード，またはオーダコード 
(0101:0102) ⑱ ， （0103) ⑫/⑱ 

(0104 〜 )® , ( 0 5 A 5 ) ® 

$ D A 6 4— 巳 I OS 実行ルーチン 


解 説] (01 0 4〜） PUT の文字列を蒂えていきますが，文字列が12 
4 バイトを越えたときは，継続フラグを立てて出力し （$ DA 64) ， CONT 
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I N U E コマンドの設定をした後に，再び （010 4) 以降に蓄えていきます， 
文字列を蒂えてい く 際に，データバイト数 （(） 10 3 )， および RCB 屮のデ ー 
タバイト数 （(） 5 A 5 ) を+1していきます. 


(5) B I OS 実行ルーチン 


ァ 

K レス 

機 

有 g 

レジスタ 

S 

U 巳 


$ D A 6 2 , $ DA 64〜$ DA 6 C 

設定された RCB , コマンドを B 丨0 S に実行させる. 

A , X (X は保存） 

$DA 3 8 —SUBOUT PUT 後続設定ルーチン 
$ OODE -> B ( OS ジャンプルーチン 


解_説1 $ D A 6 2がエントリの場合は，$ D A 3 6を呼び出しているの 
で， A レジスタに文字コード等を入れておく必要があります.また，$ D A 6 4 
からは， （0 5 A 0 〜 0 5 A 7) の RCB の内容を B I OS に実行させます（こ 

のとき A レジスタは使川しません）. 

(3) 〜 （5) のルーチンの具体的な使用法は，まず S DA 3 0を呼んで RC 
B などを設定した後， A レジスタに文字コードなどを入れて$ DA 3 6を呼び出 
すという動作を繰り返し，最後に $ DA 64, ある.いは$ DA 6 2を呼んで B I 
0 S に実行させるという形が一般的なようです • 


4 — 6 — 2 コンソール1バイト入出カルーチン 
( 1 ) スクリーン1バイト出カルーチン 

アドレス1 $D9D9 〜 $D9DD 

[p サブシステムの PUT を用いてスクリーンに 1 バイト出力する. 

レジスタ ] A 

b 力情^! A レジスタ=出力する文字コード 

rs U B i $DA 3 0—SU 日 OUT PUT 初期設定ルーチン 

I 1 

$DA 6 2—B1OS 実行ルーチン 
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(2) キーボード 1 バイト入 カルー チン 


アドレス I $ DB 54 〜$DB 58 

[p m I キー入力があるまで待ち，キー入力があったときは，キーボードか 
ら1バイト入力する，※キー入力待ちルーチンとしても使用可能 • 

レジスタ丨 A , B , X 
復帰情報 A レジスタ==入カキーコード 
fS U B 1$ D B B D — キー入カルーチン 


(3) キー入カルーチン 


アドレス I $ DB 6 D 〜$ DB 83 

S _態 J キー入力の有無にかかわらず，キーボードから丨バイト入力する 

(B I 0 S の KE Y I N 〔システム仕様 2. 1 • 4 (7)〕を使用）. 

レジスタ I A , B , X 

復 帰情報 1 A レジスタ=入カキーコード（キー入力があったとき） 

Z フラグ==キー入力がない場合にセットされる 
WORK I ( 0 5 A 0〜0 5 A 5 ) =B I OS への RCB ® 

( 01 B 5 ： 01 B 6 )= データ バッファ ® 

S U B I $ 0 0 DE — B I OS ジャンプルーチン 


(4 ) フイ ー ルド設定ルーチン 


アドレス| $ D 9 2 F 〜$ D 9 3 C 
機 能 |フイールドの始まりを設定する. 

レジスタ ] A 

WORK ] ( 01 E 5 ) =フオアグラウンドカラー ® 

SUB ] $ DA 3 fl—SUBOUT PUT 初期設定ルーチン 

$ D A 3 6 —SUBOUT PUT 後続設定ルーチン 

$ DA 6 2 —B I OS 実行ルーチン 

解 説 1 サブシステムにオーダとして S F (Set field ) を出力し，アトリビ 
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ユート 文字として， （0 1 E 5) の内容を出力します.フィールドの設定をする 
ことには重要な意味があり，連続した文字列でも，フィールドが異なっている 
と，サブシステムは，2つの別の文字列として処理します.従って，新規に出力 
する文字列を新たなフィールドとして定義したい場合は，このルーチンを呼ぶ必 
要があります[システム11:様2 . 2 . 4 ( 5 ) 〜 （ 9 ) 参照〕. 


(5) フイールド設定，および イ レーズルーチン 


アドレス| $ D 93 D 〜$ D 9 4 3 

フィールドを設定した後， E し 〔 Erase Line ;システム仕様2 • 
)〕を出力し，フィールドの終りまでイレーズを行う. 

レジスタ| A 
|S U B I $ D 9 2 F — フィールド設定ルーチン 

$ D 0 8 E — 丨バイト出カルーチン 


m _ 

2.4(1 2 


4 — 6 — 3 その他の 主な コ ン ソール 入出力関係 ルーチンの 概要 

( 1 ) 力ーソルの X ， Y 座標読み取りルーチン 


アドレス 

$ D 9 D E 〜 

$ D 9 F 3 


機能1 

現在の力ーソル位置（バッファアドレス）を読み取る • 


1レジスタ 

A , B , X , 

U ( X , U は保存） 


復帰情報 

D レジスタ== 

カーソルの X 座標と Y 座標 


WORK | 

( 01 B 7 ) 

=サブシステムへのコマンド 



( 01 B 8 ： 

Q 1 B 9 ) =サブコマンドからの復帰情報 



( 0 3 0 B ： 

0 3 0 C ) =カーソルの（ X 座標： Y 座標） 



S U B | $ D 9 F 4一汎用 RCB 設定ルーチン 

$ 0 0 DE — B 丨 0 S ジャンプルーチン 


解_ 説1$ D 9 F 4を使い S U B I N の RC B を作った後， GET Buf ¬ 
fer Address のコマンドをサブシステムに送ります〔システム仕様2 . 2 . 11 

# 

(10) 〕 . その復帰情報から，バッファアドレスの X および Y 座標，即ち 力一 
ソルの位置を 読み取ってワークエリア （030 B : 0 3 0 0へ格納します， 
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(2) 力ーソルの X ， Y 座標設定ルーチン 


アドレス1 $ D A 6 D , $ DA 70〜$ DA 7 F 

機 能 |カーソルの 位置 （バッファ アドレス）を 設定す る. 

レジスタ j A , B 

[入力情報1 D レジスタ=力ーソルの X 座標と Y 座標 （$ D A 6 D の場合のみ） 
WO R K I ( 0 3 0 B ： 0 3 0 C ) =力~ソルの （X 座標 ： Y 座標 ） ®/® 
SUB」$DA 3 0 ->SUBOUT PUT 初期設定ルーチン 

$DA 3 6 —SUBOUT PUT 後続設定ルーチン 
$ D A 6 2 - >B I 0 S 実行ルーチン 

解 説 S B A (Set Buffer Address ; システム仕様 2 . 2 . 4 (10)〕 

を用いて， （030 B :030 C ) に格納されている，カーソルの X 座標と Y 座 
標をサブシステムにバッファアドレスとして送ります.$ DA 6 D がエントリの 

場合には D レジスタの値を事前に （ 0 3 0 B : 0 3 0 0に代入しています. 


(3) 画面消去 （ CLS ) ルーチン 


アドレス I $ D A 8 0 , $ DA 8 巳〜 $ DAA 5 
Hit | 画面およびコンソールバッファを初期化する： 

レジスタ丨 A , B 

^力情報1 B レジスタ=消去範囲（解説参照 ； $D A 8 B エントリの場合） 
WORK ] (010 2〜010 5) =サブシステムへの データ バッファ © 

(0 1 E 5 : 01 E 6 )=( フオア：バック）グラウンドカラ ー® 
(〇 5 A 5 ) = R C B 中のデータバイト数⑱ 

SUB ] $ 0 0 D 8―テキスト読み込みルーチン 

$ C 7 BE — >テキスト数値読み込みル ー チン 
$ D A 2 1 —SUBOUT PUT 設定ルーチン 
$ D A 6 4 — B 丨0 S 実行ルーチン 

解 説 1 $ D A 8 0は 「C L S 」 のエントリですので，テキストの読み込み 
をしています.ユーザは$ DA 8 B をエントリとして使うのが適れです.$ DA 
21を呼んではいますが，コマンドを PUT に代えて ERASE 2 を再設定して 
います.入力情報の B レジスタの値は ， E R A S E 2の W の値と様です.ま 
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た， ( 01 E .5 ： 01 E 6 ) より画面の文字色と背景色の設定も行います〔シス 
テム仕様 2. 2. 11 (13) 参照〕. 


( 4 ) カーソル消去 • 表示ルーチン1 


ァ 

ドレス 

■機 

有巨 

レジスタ 

S 

U 巳 


$ D A D F , $DAE4〜$DAEE 

カーソルを表示 （$ D A E 4 ) ， 消去 （$ D A D F) する. 

A, B ( 全て保存） 

$ D B D 5 —コンソール 制御 ルーチン 


( 5 ) カーソル消去 • 表示ルーチン2 


アドレス j $ D A E F , $ D A F 6 —$ D B Q 6 
[m iil カーソルを表示 （$DAF 6 ) ，消去 （$D AEF ) する. 

レヌスタ I A , B，X ( X は保存） 

! WO r 1< T 1(0 5 A 8) = コンソール制御フラグ® 

(01 B 7 : 01 B 8 ) = データ バッファ ⑱ 

[ SUB ] $ 0 0 D E->B I 0 S ジャンプルーチン 

W \ (4) のルーチンでは，結果的に （0 5 A 8) を変えてしまいます 
が，このルーチンは， （0 5 A 8) を参照するだけの一時的なものとなつていま 
す.ただし， （0 5 A 8) がもともとカーソル表示をしないように設定されていれ 
ば，$ DAF 6のエントリでこのルーチンを呼んでも力ーソルは衷>パしません • 

( 0 5 A 8 ) の内容によりコンソ ー ル機能を設定するという点から見れば， 
次の （6) のルーチンと同じ機能を有しているといえます.なお，このルーチン 
で使う RCB は， $ DB 0 7~$ DB 0 C に格納されています. 
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(6) コンソール制御ル ー チン 


アドレス」$ D B D 5 , $ D B D 8 , $ DBDD , $ D B E 1〜$ D B F 2 
—機能 |コンソール機能を選択する. 

レジスタ 丨 A , 巳 

入力 解説參照 

WORKI (0 5 A 8) =コンソール制御フラグ ® 

(0102：0103)=サブシステムへの データ バッファ ® 
_S U B I $ D A 21 — 汎用 R C B 設定ルーチン 

終了条件 | 画面消去ルーチンの途中 （$ DAA 0) にジャンプし， RCB 中の 

データバイ ト 数の設定を行い ， B I 0 S 実行ルーチンを呼び出すと 
いう部分を流用している. 

説丨 $DBD 5エントリの場合は， B レジスタの内容を見て，その値が 
0のときは$ DBDD に飛び，0以外のときは $ DBD 8 に飛びます.$ DBD 
8および $DBDD では， A レジスタの各ビットで指定される機能の ON , OF 
F を行います，$ DBE 1 は A レジスタの内容が直接に （05 A 8) と C F (制 
御フラグ）に代入されて，各機能が選択されます（図4 -6*1). このルーチ 
ンは $ DA 2 1 を呼んではいますが，コマンドを PUT に代えて CONSOLE 
C 0 INI T R 0 し！:システム代様 2. 2. 11 ( 1 2 )〕で置き換えています. 


図4 • 6 •丨各エントリと動作の関係 


S D B D 5 



CF (制御フラグ） 

ヒット0 :力ーソル表不 
ビット1:オーダ動作 
ビット2 : T A B 動作 
ビット 3 :ぺージウエイト 
ビット4 :ブットウェイト 
ヒット 5 :才 一卜 LF 
«l=ON ， 0 - 0 F F 


210 








( 7 ) BE E P ルーチン 



い. 


$DB 2 A〜$DB 5 3 
A , X 

$ DB 2 A は 「BEEP 〜」 用なので，次のエントリを用いて下さ 


• $ D B 3 8 一定時間ブザーを鳴らします（サブシステムの BEL ( Bell ) 才 

ー ダ〔システム仕様 2. 2. 4 (13) を使用〕. 

®$DB 3 F ブザーを ON します 〔 BIOS の BEEP ON を使用〕. 


® $ D B 4 4 ブザーを OFF します 〔 BIOS の BEEP OF F 使用〕. 

• $DB 4 9 一定時間ブザーを鳴らします〔$ DB 3 F ，$ DB 44 使用〕. 

このルーチンの R CBS , $ DB 2 6 ~ $ DB 2 9の領域にあります （BEE 
P ON , OFF はシステム仕様 2. 1 . 4 (8) および （9) 参照〕. 


4 — 6 — 4 プリンタ出カルーチン 
( 1 ) プリンタオープン （ OPEN ) ルーチン 


アドレス」 $ D 9 A 5〜$ D 9 D 8 
m ] プリンタをオープンする. 

レジスタ] A ， 巳， X， Y 

入力情報 I A レジスタ=ファイルのモード〔アウトプット （=$2 0 ) のみ〕 

WO R K I ( 13 2 E 7 : 0 2 E 8 ) =ファイルのオプション ® 

( 0 5 A A : 0 5 A B )= プリンタのジャンプテーブル先頭アドレ 

ス （=$ 0 7 7 8 ) ® 

(0 5 BF ) =プリンタ自動改行フラグ⑱ 

~ S ^U B ] $ D 617 —プリンタ1バイト出カルーチン 

解 W \ プリンタのジャンプテーブルの先頭アドレスから19バイト目と2 
0バイト H ， 即ち （078 B ) と （078 C ) には，各々のプリンタの 改行桁数 
と フィールド改行桁数 （出力するものをコマンドで区切る場合 ， BASICSl 
行を14文字ずつのフイ ー ルドに分けますが，このとき現在の桁数がフイ ー ルド 
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改行桁数よりも大きくなった場合に改行されます）が入っていますが，ォプショ 
ンの指定により次のように変わります （“ W ” の指定のときは，縮小文字を指定 
しておかないと，不適当な所で改行することになります）. 

改行桁数 （ 0 7 8 B ) フィ ー ルド改行桁数 （ 0 7 8 C ) 

“ W ” : $ 8 8 (= 1 3 6 ) $70 (=112) 

“ S ” : $ 5 0 (= 8 0 ) $ 3 8 (= 5 6 ) … （B A S I C 起動時） 

また，オプションの第2パラメータ （" F ” または W N M ) があれば，プリン 
夕の H 動改行フラグ （ 0 5 B F ) が，” F ” のときは0， のときは1が代 

入され ， PR I NT ルーチンで参照されます.これらについては，システム解説 
の 14. 5節を御参照下さい.この後，このルーチンはプリンタ1バイト出カル 

ー チンを利用して，プリンタのレディチェックを行っています. 


( 2 ) プリンタ1バイト出カルーチン 


ァ 

ドレス 

機 

m 

レジスタ 

入力情報 


SUB 


$ D B "〜$ D 6 2 A 
プリンタに1バイト出力する. 

A , X , Y 

A レジスタ=出力するデータ 

X レジスタ=プリンタジャンプテーブルの先頭アドレス 
$ D B 5 9 — プリンタのレデイチェックおよび1バイト出カルーチン 


L 解説」$ D 6 5 9を使ってプリンタにデータを出力した後，出カデータが 
文字コード （$2 0 〜） なら， ジャンプテーブルの1 8 バイト R ( 0 7 8 A ) に 
格納しているプリンタの現在の桁数を+1します.ただし，改行桁数 （078 
B ) より大きくなった場合は，0に再設定されます. 

崁このルーチンおよび次の （3) でプリンタに出力した文字データは，プリンタ 
のバッファ内に蓄えられ，$ 0 D (C R :キャリッジリターン）または$ 0 A (L 
F :ラインフィード）がプリンタに出力された時点，あるいはバッファがいっば 
いになった時点で印字されます. 
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(3) プリンタのレデイチェック及び 1 バイト出カルーチン 


L アドレス I $ D 6 5 9〜$ D 6 6 F 
W . nl 1プリンタのレディチェックおよび1バイト出力する. 

[レジスタ] A， X ( X は保存） 

入力情報1 A レジスタ=出力するデータ 

WORK i (0 10 fl )= データ バッファ として⑱ 

S U B | $ D 6 7 8 4 Abort ルーチン 

$ 0 0 D E->B I 0 S ジャンプルーチン 

解 説」 BIOS の LPCHK 〔システム仕様2, 1. 4 (19)〕を使い 

レ ディ チヱックを行い， レディ 状態でなければブレーク • キーをチ X ックしてそ 
れが押されていれば Abort します，押されていなければ LPCHK を繰り返しま 
す. レディ 状態なら A レジスタの内容を LPOUT 〔システム仕様 2.1. 4 

(10)3 を使って出力します.このルーチンで使う RCB は LPCHK 用のも 
のが $D 6 7 0 ~ $ D 6 71 , L POUT 用のものが $D 6 72~$ D 677 に 
格納されています. 


(4) プリンタ改行ルーチン 


アドレス I $ D 64 A 〜$ D 658 ( $ D 6 2 B〜$D 6 4 9 ) 

m , _ t |] プリンタの バッファに 蓄えられた文字データを印字した後，改行する. 

レジスタ 丨 A ， B , X , Y ( X は保存） 

WORK 1 ( 0 5 A A ： 0 5 A B )= プリンタジャンプテーブル先頭アドレス 

( 01 E 3 ) =プリンタ出力禁止コード （=$ 0 D ) ® 

S U B | $ D 6 2 B — プリンタ1バイト出カルーチン（改行用） 

解 説 1$0 6 2已を利用して01^ ($ 0 D ) と LF ($ 0 A ) を出力しま 
す. $ D 6 2 B では （0 1 E 3) で出力禁止コードを指定しているので，実際に 
は CR が出力されません.ここに$ 0 A に設定したときには，プリンタのディッ 
プスイッチが自動改行になっている場合は C R が出力され2行改行されることに 
なりますが，自動改行でない場合は ， L F が出力されないので改行されません. 
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5 —丨マシン語上での整数の表現 

6 8 0 9では，符圩なし2進数，符号付き2進数，パック化10進数の3種の 
記数法の演ができるようになっています.ここでは， F-BAS I C で使用さ 
れている符けなし2進数と符号付き2進数について述べていきます. 


(1) 符号なし2進数での正の整数の表し方 （1 バイトについて) 


10進数と2進数との対応は表 
5*1*1 を御覧 I 、•さい. 

数式で表すと 

b 7 X 2 7 十 b s X 2 6 

+ b 5 X 2 5 + b 4 x 2 4 
+ b 3 x 2 3 + b , X 2 2 
+ b ! x 2 1 + b 0 

となります. 


表5 • 1 • 1 符号なし2進数の値 


! b 7 

b 6 

b r> 

b 4 

b 3 

b 2 

b i 

bo 

1 0 進 

0 

0 

0 

0 

0 

0 

0 

0 

0 ! 

0 

0 

0 

0 

0 

0 

0 

1 

i 

0 

0 

0 

0 

0 

0 

1 

0 

2 

0 

0 

0 

0 

0 

( 

0 

1 

1 

3 

( 

1 

1 

i 

i 

) 

1 

1 

1 

1 

) 

2 5 5 


(2) 符号付き2進数での整数の表し方 （1 バイトについて） 

爪の整数については1〕7を0にして b 6 以下で符り-なし2進数と M 様に表します. 
負の数については少々複雑ですが例を御覧下さい. 


く例〉 



例では10進数で5 0という数値が A cc に代入してあります.この A cc のすベ 
てのビットを反転します （ 6 8 0 9の命令では COM という）.さらにこの数値に 
1を足します （6 8 0 9の命令では INC ). この結來 A cc に求められた値を一 5 
0という fif 1 (にします（この数値の負を求める命令を N E G という）.なぜこれが一 
5 0を表すかは， 図5 • 1•丨 を御覧下さい. 2進数で5 0という数値とこの一 
5 0という数 f 【 ft を足すと0となります.このことからこの数侦を一 5 0とします. 
表5 • I • 2 は 1 0進数との対応を示します. 
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⑶ 2バイトの整数 

2バイトの整数は符号なし2進数を下位 
バイトに，符号付き2進数を上位バイトに 
したものです.つまり図5 •丨 • 2のよう 
に16ビットの一連の符号付2進数と考え 

られます . F — BASIC ではこのような 
形で整数を扱っています. 

⑷整数の減算 

6 8 0 9では減算 （ SUB ) という命 
令がありますが，この命令を使わなくて 
も減算が可能です.それは，引く方の数 
ffl ； の負をとって （ NEG をとる：これか 
らはこの意味で N E G という言葉を使い 
ます)，それから加算をすればよいわけで 
す. 


表5 


2進数 


進数 


2 


0 0 0 0 0 0 0 I 
0 0 0 0 0 0 0 0 


I 0 0 0 0 0 0 0 


0 

一 I 

— P 


—12 8 


図5 • 1 • 2 


I 2つのバイトを重ねて16ビット 

I を作ると考える. 

符号ビット 
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5 — 2 演算の方法 


一般的な演算の方法は次のフローチャートで示されるアルゴリズムを実行して 
います. 

☆数値型の判断 

前にも述べたように数値には，整数，単精度実数，倍精度実数の3種類がある 
ためこれを判断しなければなりません.これを調べるには ， S 0 017#地を見 
ます.この値は$ 0 2のとき整数型，$04のとき単精度型，$08のとき仿精 

度型となっています. 

☆ Error ■処理 


Error は演算の前後に处理されます.前の Error はおもに Type Mismatch な 
どで後ろの Error は Overflow などです. 


☆正規化ルーチン 

後で詳しく述べますのでここでは簡単 
に触れておきます. このルー チンは一 M 
の演算で起こる誤差をなるベく小さくし 
ようとするルーチンで，演算を終えるた 
びに このルー チンを必ず通さなければな 
りません. 

☆丸めルーチン 

これも後で詳しく述べますが，四拾五 
入ルーチンと言うこともできます. 

以上が演算を行う上で重要なルーチン 
ですが， ユーザが 自分で関数を作るとき 
も（例えば U S R 関数），このようなアル 
ゴリズムを作ることが必要です （F —B 
ASIC - ROM 内の関数を使えば問題 
はありません）. 


図5 • 2 • 1 
演算のフ a — チャート 



Error 


Error 
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5-2-1 数値型判断ルーチン 


ァ1 

ド レス 

一機 

有巨 


レジスタ 

入力情報 


復帰情報 

WORK 

« ' 141 

S U B | 


$ BCAE ，$ BCA 5, $ B C B 3 

$ B C A E :文字列型のときには Error を発生し，他の型のときに 

は表のように A レジスタとフラグをセツトする. 

$ BC A 5 :文字列型以外は すべて Error を発生する. 

$ BCB 3 :数値の型に従って表のようにフラグと A レジスタの内 

容が変化する. 


A ， B，CC 

(0017 ) =F A C 1の数値の型 （$02 =整数型，$ 0 3 =文 
字列型，$04 =単精度型，$ 0 8 =倍精度型） 

C C , A レジスタに表5 • 2 • 1の数値が入る. 

(0017 ) 

$ 8 D D 1 —^ エラー 処理 ルーチンエントリ 


表5 * 2 • 1 フラグと A レジスタの状態 


数値型 

$ 0 0 

1 

1 

[H 

N 

Z 

V 

C 

A レジスタ 

整数型 

■ 

Q 

■ 

m 


圔 


■ 

$ F F 

単精度型 


0 

4 

0 

0 

■ 

n 

■ 

$ 01 

倍精度型 

■ 

0 

8 

D 

0 


D 

0 

1 $ 0 5 

文字列型 

■ 

0 

3 

H 

0 

H 

0 

■ 

$ 0 0 


解 説 FAC 1の数値彻を表す数値は F —BAS I C 上では$ 0 017番 
地に格納されます，このルーチンはこの値を調べて各フラグをセットし，必要に 

応じて Error (Type Mismatch ) を発生します， 


5_ 2 一 2 符号判定ルーチン 


ァ 

ド レス 

機 

能 

レジスタ 


入力情報 

眉 


$ B 3 C 8 

F A C 1の数値の符号を判定する. 
A ， 巳 ，X 
F A C 1 =数値 

(0017 ) = F A C 1の数値型 
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復帰情報 CC と B レジスタが F A C 1の符号によって下のように復帰する. 


表5 • 2 • 2 


符 万 

B レジスタの内容 

C フラグ 

Z フラグ 

— 

$ F F 

1 

0 

十 

$ 01 

0 

Q 

0 

$ 0 0 

0 

1 


WO R K J F A C 1 

SUB ] $ BCAE — 数値型判断ルーチン5 — 2 — 1参照 

文字列型の数値が FAC 丨に入っている（$0017番地に$ 0 3 
が入っている）ときは Error (Type Mismatch ) が発生する. 

m ] fac 1 の値は数値であれば何切でも使川可能です.このルーチン 
は L 0 G などの Error 処理を行ったり，正: ft によって処理の仕方を変えたいとき 
に用いられます. 


5—2—3 正規化 ルーチン 

ァドレス]$ A F 9 7 , $ B 0 0 A ($ B 0 0 A は $AF 9 7とペアで使用） 
W ] $ A F 9 7 :数値の正規化を行いそのあと丸めを行う. 

$巳0 0 A :数値の丸めを行う. 

レジスタ] A ， 巳， X , U 
入力情報 j $ A F 9 7のとき 

FAC 1 =正規化されていない数値 

(0015 ) =単精度型のとき$ 0 0，倍精度型のとき$ 0 0以外 
復 帰情 $ A F 9 7のとき 

FAC 1 =正規化された数値 

work ] F A C 1 

( ODBC ) =保護バイト 

~m 正規化とか丸めとか聞きなれない名前ですが，数値の誤差を最小限 

にするためには必要不可欠なものです. 
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(1) 正規化ルーチン 

どんなコンピュータであっても，浮動小数点表示の仮数部には限りがありま 
す.下の例を御览下さい. 

く例〉 

0 . 11010 0 0 0 X 2 10 = 0.0 0 011010 x 2 13 …… ® 
0.1101001 IX 2 1 。 今0.00011010 X 2 13 . ② 

仮数部が8ビット（初めの0と小数点は含まない）であるとします.①では 
左辺と右辺は同じ数値を表しています.ところが②の左辺のようにド位3ビッ 
卜に数値が祝れると，左辺と右辺は等しくなりません.ここで注目してほしい 
のは右辺の小数点以後の3ビットが無意味になってしまうことです.ですから 
演算を行った後は，この無意味なビットをなくすため左辺のように必ず小数点 
直後に1が立つようにします. 

F —BA S I C 上では FAC 1の他に 保護バイト と呼ばれるバイトを$ 0 0 
8 C 番地に作っています.このバイトは FAC 1の仮数部の最下位バイトのさ 
らに下位の1バイトを保存しておきます.つまり F —B A S I C では，演算の 
結果を単精度型では3 2ビットまで，倍精度型では6 4ビットまで求めていま 
す.このようにしてから小数点直後に1が現われるまで全ビット（保護バイト 
も含む）を左へシフトします（例参照）. 

く例〉 簡単にするため仮数部を8ビット，保護バイトを3ビットとします. 

0 . 0 0 011010 X 2 13 保護バイト= 011 

0.11010011 X2 10 • ③ 

このようにすれば②右辺は②左辺と等しくなります. 

このような操作を正規化といいます. 

(2) 丸めル ー チン 

このルーチンは2進数上での四捨五入 （2 進数では〇捨1入か？）のルーチ 
ンといってもさしつかえありません.正規化ルーチンでも述べたように FAC 
1には保護バイトがありますが，正规化ルーチンを通した後でもまだ保護バイ 
卜に数侦が残っていることがあります.このとき保護バイトを2倍して C フラ 
ダが立つかどうかを調べます. C フラグが立ったときには FAC 1の最下位バ 
イトに1を加えます.この操作を丸めといいます（例参照）. 
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く例〉丨0 進数の丸め 

1 0. 5 6 こ_ A ここの桁を保護バイトと 考える.） 

L -ここで丸めたいとする. X 2 = 14 となリ桁上がリ 

が生じるので6の所に1を加 
える. 



く例〉 2進数の丸め 


0 



ビッ 


とする） 
2倍 




C フラグが 立つからこの 


丸め 


すぐ J 


を足す. 


t 


5 一 2 — 4 切捨てルーチン 


アドレス I $6068 

劈 能 ] F A C の絶対値の切り捨てを行う. 

レジスタ I A ， 巳 ，X 

入力情報] B レジスタ=切り捨てたいビット数の NEG の値 

X レジスタ= 3つある FAC の先頭番地 （$ 0 0 7 4 , £008 



2 ， $ 0 0 2 8 ) 

F A C =切り捨てたい数値 

(0015)=単精度型のとき$ 0 
( 0081 ) = 

F AC 二 

B レジスタ = 


倍精度型のとき$ 0 0以外 


必ず$ 0 0代入 


絶対値の切り捨てを行った結果 
$00 



( 0 0 8 C ) =保護バイト 


解 説 I B レジスタの値は切り捨てたいビットの NEG (例えば1ビット切 
り捨てたいのなら $ FF ， 2ビットなら$ FE を代入します）を取った f 直を入れ 
ます. 

実際にどのようになるか簡単な例で示します. 
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く例〉 B レジスタに$ FD を入れます（簡坩にするため仮数を8ビットとしま 

す初めの0と小数点は数えません）. 
0.10000011 X 2 3 ^ 0.00010000 X 2 5 

FAC には左辺の数値が入っているとします.このルーチンを呼び出すと 
右辺の数値が FAC に入ります.この数値が FAC 1の中にあるときはこの 
後$ 0 0 8 C 番地に$00を入れて,正規化ルーチン （ 5 - 2 - 3参照）をコ 
—ルすれば以下のような切り捨てた値が FAC 1に入リます. 

0.10000 QOOX 2 3 

なお，このルーチンは取精度 M と倍精度型の数値でしか利川できません. 


5-2-5 数値型変換ルーチン 

F — BAS I C では C I NT , CSNG，C D B L など数値の数値型を変える 

命令がありますが，これらは以下の4つのサブルーチンから構成されています. 


(1) 単精度実数を倍精度実数に変換するルーチン 


アドレス 

機 能 

レジスタ 

入力情 報 
復帰情報 


WORK 


$ B C D 5 

FAC 1の内容を単精度実数から倍精度実数に変換する. 


A , X 
F A C 1 
F A C 1 
( 0017 ) 




単精度実数 
倍精度実数 

倍精度型を示す数値 （$ 〇 B ) 



解 説 I このルーチンは4つの殳換ルーチンの中で iii も簡艰です.以下その 
概略を述べます. 

⑴ 単精度型では未使用の （ 7 8 ~ 7 B ) を 初期化します. 

⑹ 5 0 017#地に$ 0 8を入れます. 
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(2) 整数を単精度実数に変換するルーチン 


% 


アドレス 



レジスタ 

入力情報 

植帰情報 


WORK 


SUB 


$ 巳 C F F 


FAC1 を整数から単精度実数に変換する. 


A ， X ， U 
FAC 1 =整数 

F A C 1 =単精度実数 

(0017) =単精度実数を示す数値 （$04) 

F A C 1 

( 0 0 8 C ) =保護バイト5 — 2 — 3參照 
$巳3 AD — 符号を判定して正規化ルーチンを呼ぶ 


解説1以下にこのルーチンの簡単なアルゴリズムを尔します_図 5 • 2 • 



を御覧ドさ 



整数データを1バイトず つ上へ シフトします（①の W ) 


( ii ) $00 


潘地を 


整数型）から S 0 4 (# 梢度型）へ変えます 


( iii ) 


0を$ () 0 7 4番地（指数部）に代入します. 


泉ここでなぜ指数部に$ 9 0を入れるか述べてみます.②の図を御覧下さい. 
この状態で$ 0 (.) 7 6番地の b 0 (整数の最下位）は2°の位になります.ここ 
で実数は X *2 n の形で衷されることを恐い出してドさい • FAC 1の指数 
部に人るのは （$8 0 + n ) です. 2 0 の位のことを苓えると魃数の1つ上の 
ビット，つまり X の小数点の1つ上のビットは2の16($ I 〇)乗の位にな 
ります.この fift が n となります.ですから衍数郃に（$8 0 + $10)を入 
れれば実数吧に変換できるわけです. 


( iv ) 数値が ft であれば仮数部の NEG をとります(整数は2の補数表現乂 
( V ) 兄化 ルー チン （5 — 2 — 3 参照）を実行します. 

淡例えば，$ 0 0 8 1などの鞍数は仮数部の一番 iii 初に1が立ちませんので 1 
正规化ルーチンを行います* 
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図 5 • 2 _ 2 整数型を単精度型にする 



0 017 
0 0 7 \ 
〇 〇 7 n 
0 0 7 (i 
0 0 7 7 
0 0 7 « 
0 0 7 9 
0 0 7 A 
0 0 7 8 
0 0 7 C 
0 0 8 C 


ここが 2 16 の位になる 



二こが ( ド位の 
M 終ビット > 2 0 の 

位になっている. 


⑶単精度実数を整数に変換するルーチン 


アドレス I $ B C 8 7 

I ~ FAC 1の内容を単精度実数から整数に変換する. 

_レジスタ丨 A ， 巳 

入力情報1 FAC 1 =単精度実数 

復帰情報 1 F AC 1 =整数 

(0017)=整数を示す値 （$02) 

WO RK ] FAC 1，( 0 0 8 1 ) 

SUBj $ B 4 3 5 ~>F A C の符号を調べ切り捨てを行う 
[終了条件 ] F A C 1 の値が 一 3 2 7 6 7 〜+ 3 2 7 6 7を越えると$ B 0 4 4 
， 番地へ飛んで Error (Overflow) を発生する. 

解 説 1ほぼ以下のアルゴリズムを行っています. 

(0 指数部が S 9 0以上のとき （F A C 1の絶対値が3 2 7 6 8以上のとき） 
は Error ( Overflow ) を発生します. 

( ii ) 指数部から$ 9 8を引きます.その値を B レジスタへ入れて切り捨てのル 
ー チン （5 — 2 — 4 参照）を呼びます. 

來指数部から$ 9 8を…く理由 

図 5 _ 2 • 3 を御覧下さい.①のように指数部に$8 8が入っていたとし 
ます.$ 0 0 7 5番地の b 7 は2 7 の位に相当しますから2°の位は$ 0 0 7 5 
番地の b 0 のところになります.ですからこの2 0 の位が$ 0 0 7 7番地の b 0 に 
米るまで右へシフト（切 1 )捨て）すれば （76: 77) に整数の絶対値が入 
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ります.この場合右へシフトするのは$1 〇间 です.この値を得るのが （寺旨 
数部一 $9 8) です. 

( iii ) 数値が負のときは （76: 77) の N EG をとります. 

( iv ) $0017番地へ$ 0 2を代入します. 

糸このルーチンでは FAC 1に一 3 2 7 6 8を入れても Error を発生しま 
7 • 図5 • 2 • 3 単精度型を整数型にする（例） 


① 


so 


0 0 17 


② 


$ 



マ 


(4) 倍精度実数を単精度実数に変換するルーチン 


[> ドレス 

機 能 

レジスタ 

入力情运 
復帰情報 


WO R K 



解 説 


$ 巳 C E E 

FAC 1の内容を倍精度型から単精度型に変換する. 
A , X 

FAC 1 =倍精度実数 

F A C 1 =単精度実数 

(0 017)=単精度型を示す数値 （$04) 

F AC 1,(0017) 

$ A FEC (下の M の所を実行している） 


( i ) $0 017番地に$04 (単精度型）を代入します. 

⑹ FAC 1が0のときはイ可もせずにリターンします. 

( iii ) $ 0 0 7 8番地の内容を保護バイトへ移します. 

( iv ) 丸めル ー チンを実行します. 

嶔 ㈤ と ( iv ) では，$ 0 0 7 8番地以下を四捨五入すると考え T ドさい, 
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5 — 2 — 6 数値を転送するルーチン 

F —BAS I C 内で数値を fe 送するものには，2雛類あります.一つは FAC 
から FAC へ移すものです.もう 一^ ?は FAC と'交数テーブル 叫 での転送をする 
ものです. 

FAC 相互の間での転送は比較的容钴ですが，少々問題があるのが変数テープ 
ルと F A C 間での数値の転送です. 

変数テーブルとは，変数エリア内の数値を iK く場所のことを指しますが，ここ 
に格納される数値は必要最小限のバイト数で情報をたくわえるようにされている 
ため ， F A C 上の格納形式とは少々異なっています. 

以ドこの形式の数値のことを変数テーブル用数値とします. 

(1) 変数 テーブルと F A C との データ 格納の違い 

(i ) 整数 

2 — 2 — 1 を御参照 卜 さい. 

( ii ) 単精度実数 （ FAC 1 を例とします） 

F A C に入る演兑の結果は必ず A 规化 （5 — 2 — 3 参照）されます.つまり 
仮数部の最上位バイトの b 7 は必ず1が立ちます.ですからこの1ビットに他の 
情報を入れたとしても後でこの b 7 を丨にすれば元の数値にもどります.ここに 
$ 0 0 7 C 番地の1ビットしか使っていない符号ビットを代入します.このよ 

うにしたのが,変数テーブル川数で t (図5 • 2 • 4参照）. 

( Hi ) 倍精度実数 

この場合も単精度型の場合とほぼ同じです(ただ墘精度型では未使用の箇所 
を仮数部下位の下へ保存します). 

図5 • 2 • 4 単精度実数の格納 
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(2) F A C から F A C への数値の転送 


( i ) FAC 1 から FAC 2 へ転送するルーチン 


ァ 

ドレス 

機 

有6 

レジスタ 

入力情報 


復帰情報 
WORK 

SUB 


$ 巳3 8 0 

FAC 1から FAC 2へ数値を転送する. 

A , X 

FA C 1 =数値 

(0 0 17) =転送したい数値の数値型を示す値 
F A C 2 =F A C 1の値 
FAC 1 , FAC 2 

$BC B 3 —数値型判断ルーチン 5-2-1 參照 


( ii)FAC 2から FAC 1へ転送するルーチン 


T 

K レス 

機 

m 

レジスタ 

入力情報 


$ 巳3 5 F 

FAC 2から数値を FAC 1へ転送する. 
A , X 

F A C 2 =数値 


復帰情報 

(0 01 

F A C 1 

7)= 転送したい数値の数値型を示す値 

! = F A C 2の値 

WORK 

F A C 1 

1 , F A C 2 


(3) 変数テーブル（メモリ）と FAC 間の数値の転送 

(i ) メモリから変数テーブル用数値を F A C 2へ転送するルーチン 

アドレス I $巳1巳 A 

\[m W ] x レジスタの示す番地から代入されている変数テーブル用数値を， 
FAC 2へ代入します. 

レジスタ | A，B 

入力情報| X レジスタ=数値の入っている箇所の先頭アドレス 

(0015)=単精度型のとき$00，倍精度型のとき$ 〇 0以外 
復帰 FAC 2 =変数テーブル用数値を FAC 用に変換して代入 

A レジスタ=数値代入後の$ 〇 〇 8 2番地の値 
巳レジスタ =$ 0 0 7 4番地の値 （ F * AC 1の指数部） 

( 0 0 8 B ) =変数テーブル用数値と F A C 1の符号によって b 7 

を次のように決定する 
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F AC 1 

変数 テーブル 

$ 8 B 番地 b 7 

+ 

| 1 

0 

— 

十 

1 

—* 


0 

+ 

— 

1 


WORK | FAC 2，( 0 0 8 B ) , F A C 1 

解 説 1 このルーチンは，数値が変数テーブル用数値の格納の形式に従って 
代入されていれば，変数テーブル上になくても任意のメモリから数値を FAC 2 
に代入することができます. 

なおこのサブルーチンは実数型の数値しか扱えません. 


( ii ) メモリから変数テーブル用数値を FAC 〗へ転送するルーチン 
アドレス]$ B 3 01 

機 能1 X レジスタの示す番地から入っている変数 テーブル 用の数値を， 
F A C t へ代入する. 

レジスタ1巳 ， U 

「入力情報 1 X レジスタ=数値の入っている箇所の先頭アドレス 

(0 0 17) =転送したい数値の型を示す値 

復帰情報 1 FAC 1 =変数テーブル用数値を FAC 用に変換して代入 

WORK ] FAC 1， (0017) 

解 説| このサプルーチンはすべての数値型で使川叫能です. 



( iii ) FAC 1からメモリに変数テーブル用数値を転送するルーチン 

$ 巳32巳 ， $B 3 3 0 , $ B 3 3 7 

$ B 3 2 B ：単精度実数の F A C 1の内容を$ 0 0 6 3番地からの 

卜に変数テーブル用数値で代入する. 

$ B 3 3 0 :単精度実数の F A C 1の内容を$ 0 fl 5 F 番地からの 

4バイトに変数テーブル用数値で代入する. 

$ B 3 3 5 ： F A C 1の内容をワークレジスタ （ 5 A : 5 B ) の示 

す番地から変数テーブル用数値として代入する （LE 
T 文処理用）. 

$ B 3 3 7 : F A C 1の内容を X レジスタの示す番地から変数テ ー 

ブル用数値として代入する. 
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レジスタ 

入力情裏 


WORK 


A , X , U 

$巳3 2巳，$巳3 3 0のとき 


(0017 ) 
F AC 1 




$04 (単精度型) 
単精度実数 


$ 8 3 3 5のとき 

( 5 A : 5 B ) =変数実効アドレス 

(代入用） 

(0017) = F A C 1の数値型を示す値 

F A C 1 =数値 

$ B 3 3 7のとき 

(0017) = FAC 1の数値型を示す値 
F A C 1 = 数値 

X レジスタ=数値を転送するメモリの先頭アドレス 
F AC 1， (0017) 



5 — 2 — 7 数値- > 文字列変換ル ー チン 


アドレス]$ B 6 2 0 

_ m ] FAC I の数値を文字列にする. 

入力情報 I FAC 1 =数値 

(001 7) = F A C 1の示す数値型 
復帰情報 I X レジスタ =文字列の先頭アドレス （$ 0 5 41 ) 

( 0 5 41〜）=文字列 

[WORK I ( 0 0 BA ) = FORM AT 指定子 

( 0 0 6 3 ) =小数点以下の桁数 
( 0 0 6 4) =コンマカウンタ 
( 0 0 6 9 ) =指数部操作用レジスタ 
( 0 0 7 D ) =符号フラグ 
(0 01 5) =倍精度フラグ 
( 8 D ： 8 C ) = X レジスタの保存 

S U B 1$ BCB 3—数値型判断ルーチン 5 — 2— 1参照 

$ B 3 C 8—符号判定ルーチン 5 — 2 — 2参照 
$ BDC 9 — 符号反転ルーチン 

[解 説 | F A C 1の数値をその切にしたがって$ 0 5 41番地から文字列と 
して格納します.この際単精度型では7桁 n , 倍精度型では17桁目を叫捨五入 
して数 fit を文字列に変換します.ですから単精度型の実数では最終の2ビット〜 
3ビットは無視される結果になります.ここの数値を得たいときは単■度実数を 
CDBL などて 1音精度型にすると求まリます.一般に CDBL を単精度実数に対 
して実行しても無意味な数値が6桁以降に出力されるように思われがちですが， 
実はこのように有効な数値が出力 （ 1 〜 2桁）されているのです. 
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5—2—8 文字列—数値変換ルーチン 


アドレス 1$ 巳 506, $ B 5 0 B 

_ W ] $ B 5 0 6 :倍精度型を基本にして数値を求める. 

$ B 5 0 B :整数型を基本にして数値を求める. 
レジスタ| A , B , X , U 

入力情報 1 (D 9 : DA ) =文字列の先頭アドレス ー 1 
復帰情報 | FAC 1 =文字列を変換した数値 

(0 01 7) =FAC I の型を表わす数値 
(D 9 : DA ) =数値を表わす文字列の次のアドレス 
WORK I FA C 1 

( 0 0 6 3 ) =小数点以下の桁数 
( 0 0 6 4) =小数点フラグ 
( 0 0 6 9 ) =指数部操作用レジスタ 
(0015) =倍精度フラグ 
(0017 ) 二 F A C 丨の数値の型 
(D 2〜 DD ) =〉凡用読み込みル ー チン 


S U 

B 


解 

説1 


省略 


B 5 0 6の場合 &, & 0, & H ， 


E などの指定がないかぎ 


リ倍精度型で数値が得られます.整数型の％があっても整数型にはなりません 


$ B 5 0 B の場合整数型を基本 ( 


数値を求め尺 


きに使います . &，& 


0， & H , ! , E , 詁などの指定があればそれに従います.また整数の範 M を越 


こ場合は^精 ( 




らなければ 


印 i ¥ 




(飢が求 


ま 


ただし両方とも E が 「E L S E や E Q V の E 」 の上 


勿 



氧精度型に変換せず 


E が現れる前までの文字列を数値 


E のアドレスを （D 


D A ) に入れて 


す 


夕 




してしまいます. 


EXEC などでこのルーチンを使用するときは必ず （ D 9 : DA ) を一時退避 
して下さい（暴定することがあります）. 
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5—3 2 項演算 


5—3 — 1 実数の加算を行うル ー チン 



$ A F 1 A 

メモリ（数値を変数テーブル用数値で格納） + FAC 彳を実行する 
メモリと FAC 1の数値型は同一でなければならない. 


レジスタ I A , B , X , U 

—入遞報| F AC 1 =加算する数値(単精度実数，あるいは倍精度実数） 

(0 0 15 ) ==倍精度型のとき$ 0 0 以外，単精度型のとき$ 0 0 
X レジスタ =メモリ（変数テーブル用数値で数値が格納され てい 

る箇所）の先頭アドレス 

メモリ = FA C 1 と同じ数値型のデータを変数テーブル用数 

値であらかじめメモリ上に格納（被加算数値） 

復帰情報 1 FAC 1 =加算された結果 

WO RKI FAC1,F A C 2 

(0015) =倍精度フラグ 

(008 巳）=表 5. 3.1 参照 
( 0 0 8 C) =保護 バイト 


SUB 」 $ B 1 BA — メモリを FAC 2 へ 5-2-6 参照 

$ B 35 F *— FAC 2 を FAC 1 へ 5 — 2 — 6 参照 


$ A F 0 5 — B レジスタの内容だけ切り捨て 
$ B 0 7 4— > 巳レジスタの内容だけ切り捨て 
終了条件] 1.7014X1 〇 3 3 〜 一 1.7014X103 8 の範囲外のとき 


Error ( Overflow ) を発生する. 


解 説 I このルーチンはメモリ（変数テーブル用数値で代:入されている）に 
FAC 1の値を加えます.その際数値の型は ㈣ 方とも同じ型でなければなりません. 
一般的な加算のアルゴリズムは以下のようになります. 

A . 2つの数値の指数部が同じになるように調整 

B . 仮数部の加算 

C . 正規化 

図5 • 3 • 1 を御覧下さい.10進数の加算を示しました. A の操作が①の操 
作， B の操作が②の操作， C の操作が③の操作に相当します. 
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図 5 • 3 •1 彳〇進数加算 


! . 5 X I 0 3 + I . 
①桁を合わせる. 

15 0 0 
+ I 3 0 0 0 0 


3 X I 0 5 を実行する. 
②加算をする. 

15 0 0 
+ I 3 0 0 0 0 
13 15 0 0 


③指数型式にする. 
13 15 0 0 = 

[. 3 I 5 X I 0 5 


F-BA S IC では以上のことを次のように英行しています. 

(1) メモリを FAC 2へ移します.ですからこの後では F AC 2 + FAC 1を実 
行しています.また，ここでは$ 0 () 8 B 番地の b 7 を下の表のようにセットし 

ます. 


FAC i の符号 

メモリの符号 

$ 8 B 番地 b 7 

+ 

+ 

0 

+ 

- 

1 1 

- 

.+ 

! 

— 

- j 

0 


表5 • 3 • 1 


⑵ F A C 1二0なら F A C 2が答えになりますから FAC 2 を FAC 1 へ代入 
して終ります.他のときは⑶を実行します. 

⑶ F AC 2 = 0なら F AC 1が答えになりますからイ可もせずに終ります.他の 
ときは (4) を実行します. 

(4) F A C 2の指数部から FAC 1の指数部を引きます.この結果によって F A C 
1の桁を FAC 2に合わせるか ， FAC 2の桁を FAC 1に合わせるかの場合分 
けを以下のようにします（ここでは前に述べた A を行っています). 

( i ) FAC 2の指数部が FAC 1の指数部より大きいとき 

FAC 1の指数部が F A C 2の指数部と同じになるまで F A C 1の仮数部を 
右へシフトします （F AC 1の指数部を F AC 2に合わせています）. 

( 0 0 7 C ) に （ 0 0 8 A ) の値を代入します（結果の符号部を F A C 2の 
値とします).次に （ 0 0 8 2 ) の値を （0 0 7 4 ) に代入します（結果の指 
数部を FAC 2の値:にします）. 
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( ii ) F A C 1 のす旨数部が FAC 2の指数部より大きいとき 

FAC 2の指数部が FAC 1の指数部と同じになるまで仮数部を右へシフ 
卜します （FAC 2の指数部を F AC 1の指数部に合わせています）. 

結果の符号部と指数部は FAC 1 のものとします. 

( iii ) FAC 1の指数部と F A C 2の指数部が等しいとき何もしません. 

(5) (1) で求めた$ 0 0 8 B 番地の内容と (4) の⑴， （ ii ), ( iii ) の条件によリ場合分けを 
します. 

⑴ $ 0 0 8 B # 地の b 7 が0のとき 

仮数部の足し算をします.桁あふれが出た場合は，結果の指数部に1を加 
えて仮数部を右へ1ビットずらします 
( ii ) $ 0 0 8 B 番地の b 7が1のとき 

④ （4) で⑴のとき （F A C 2の指数部が F A C 1の指数部よリ大きいとき）， 
FAC 1の仮数部の NEG (2 の補数）をとリ，それに FAC 2 の仮数部 
を加えます （F A C 2の仮数部から F A C 1の仮数部を引く（例2参照））. 

© ⑷で ㈤ のとき （ FAC 1の指数部が FAC 2の指数部よリ火きいとき） 
FAC 2の仮数部の NEG ( 2の補数）をとり，それに F AC 1の仮数部 
を加えます （F A C 1の仮数部から F A C 2の仮数部を引く）. 

Q (4) で ( iii ) のとき （F A C 1の指数部と F A C 2の衍数部が等しいとき） 
FAC 2の仮数部の NEG を取り， FAC 1 に加えます （ FAC 1の仮数 
部から F A C 2の仮数部を引きます ). F A C 2の仮数部が F A C 1の仮数 
部より火きいときは，符号のバイト （ 0 0 7 C ) を反転させて，引いた結果 
の NEG をとリます（例3参照). 

(6) 正規化します. 

一応のアルゴリズムは述べましたが，これではまだよくわからないと思います 
ので，2 ~ 3例をあげて説明します.簡単にするため仮数部を4ビットとします. 

く例1 > ⑸の⑴の場合 （F A C i とメモリが同符号） 

(1)FAC1=0.1010X2 2 

F A C 2 = 0 . 1 1 I OX 2 5 (メモリの値〉 

FAC 2の指数部 - 5>2 - FAC 1の指数部ですから指数部を F A C 2 
に合わせます. 
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FACl =0.0 0 0 1 01 0 X 2 b 
FAC 2 二0.1110 x 2 5 

このとき結果の符号と指数部は F A C 2のものとなリますから結果は以下のよ 
うになります. 

0.111 1X 2 5 ( 4 ビット以下は丸める） 

⑵ FAC 1 二 0. 1 0 1 0 x 2 2 

FAC 2=— 0. 1110 X2 5 ( メモリの値） 

⑴の場合と同様に符号は FAC 2の符号部が決定しますから 
- 0 . 1111 X 2 5 となります. 

(3) F A C 1= 0 . 1010 X 2 5 

FAC2 = 0. 1 000X2 5 (メモリの値） 

今度は桁あふれする場合です.仮数部，指数部は以ドのようになります. 

1 . 0 010 X 2 5 

最初の1は桁あふれになります.ですから下のように直します. 

0 . 10 01 X 2 6 


く例2 > ⑸の ( ii ) の④の場合 F AC 1の指数部く F A C 2の指数部 

FA C 1と F A C 2が異符号の場合 
FAC 1-0.1 00 0 X2 2 
FAC 2=-0.1 0 0 0 x 2 3 (メモリの値） 

この場合 F AC 2の絶対値は必ず FAC 1の絶対値より大きくな 1 )ますから 
符号は必ず F A C 2の値:になります.また仮数部は F A C 2から FAC 1を引 
いた値になります.つまり （一4) + 2を一 （4 — 2> としてい るのと冏じこ 
となります.それでは実際に行ってみることにします. FAC 1 の指数部を F 
A C 2に合わせます. 

F A C 1= 0 . 01 00 X 2 3 
FA C 2 0 . 10 0 0 X 2 3 

F A C 1の仮数部の N E G をとります. 

F A C 1 の仮数部の N E G = 0.1100 

(初めの 0 は FA C 1 内部にありませんので値は変わりません) 
F A C 2の仮数部と F A C 1の仮数部 （N E G したもの）を加えます. 

0 . 010 0 実際には桁あふれ（最初の0の所に1が立つ）がありま 
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すが， NEG をとって加えたときは無視します. 

指数部.仮数部ともに F A C 2の値になりますから結果は 

- 0 . 010 0 X 2 3 と求まります.さらに正規化して 

- 0 . 10 0 0 X 2 2 となります. 

㈣ の場合も同様にして求めることができます. 

く例3 > ⑸の ㈤ の(ハ)の場合 F A C 1と F A C 2が異符号で指数部が等しいと 

き 

(1) FAC 1の仮数部> FAC 2の仮数部のとき 

F A C 1 ^ 0 . 110 0 x 2 3 

FAC 2 二一 0.1 0 0 0 X 2 3 (メモリ） 

FAC 2の仮数部の N E G をとります， 

0.1 0 0 0 (最初の0は F A C の内部にありません） 

F A C 1の仮数部に足します. 

0.0100 (桁上がりを無視します） 

符号を FAC 1の符号（このときも FAC 1の絶対値が FAC 2より大きい 

ため）に決定します. 

0 . 010 0 x 2 3 を正規化して 

0.1 0 0 0 X 2 2 となります. 

(2) F A C 1の仮数部く FA C 2の仮数部のとき 

F A C 1 =- 0 . 10 0 0 x 2 3 

FAC 2 = 0.1 1 00 X 2 3 ( メモリの値） 

FAC 2の仮数部の NEG 

0.0100 (最初の0は NE G には関係ありません） 

F AC 1の仮数部と F A C 2の仮数部を足します. 

0.1100 

この値の N E G をとります. 

().0100 (この値が結果の仮数部となる） 

符号は FAC 1の反対つまり F A C 2の値になリます （F A C 2の絶対値が 
F AC 1の絶対値よリ大きい).結果は以下のようになります. 

- 0 . 010 0 x 2 3 を正規化して 

- 0.1 0 0 0 x 2 2 となります. 
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5—3—2 実数の減算を行うルーチン 


ァ 

ドレス 

機 

m ] 


$ A F 11 

メモリ（数値を変数テーブル用数値で格納）から FAC 1を引く. 


メモリと FAC 1の数値型は同一でなければならない. 


レジスタ I A ， B , X， U 

入力情報 I FAC 1 =減算する数値(単精度実数,あるいは倍精度実数） 

(0 01 5) ==倍精度型のとき$ 0 0以外，単精度型のとき$ 0 0 
X レジスタ =メモリ（変数テーブル用数値で数値が格納されている 

箇所）の先頭アドレス 


メモリ = FAC 1 と同じ数値型のデータを変数テーブル用数 


復帰情報 
WORK 


SUB 


終了条件 I 


F A C 1 


値であらかじめメモリ上に格納（被減算数値) 
減算された結果 


FACT , FAC 2 

(0015)=倍精度フラグ 
( 0 0 8 B ) =表 5 • 3 • 1 参照 
( 0 0 8 C ) =保護バイト 


$ B 1 B A -> メモリを FAC 2 へ 5 — 2 — 6 参月 
$ A F 1 D —FA C 2 から FA C 1 を引く 


結果が 1.7014 X 1038 


1 . 7 014 X 


8 


の範囲外の 


ときは Error ( Overflow ) を発生する. 


[m 説]一般に減算は被減算数値を x ,減算数値を y とすると次のように加 
算で表すことができます. 

X —Y = X + (- Y ) 

つまり Y の符号を変えて加算すればよいわけです . F —BAS 1 C では X がメ 
モリ， Y が F A C 1となっています.ですからメモリを F A C 2へ移してから$ 
0 0 7 C 番地 （ FAC 1の符合部）を反転させ，その後$ 0 0 8 B 番地を反転さ 
せ，加算ルーチンを呼び出せば減算を行います. 


^ $ 0 0 8 B 番地を反転させるのは， 表 5 • 3 • 1 よリ求まる$ 0 0 8 B 番地 

の値を，$ 0 0 7 C 番地を反転させる前の値によって求めているからです. 


239 






5-3-3 実数の乗算を行うルーチン 


ァ 

ドレス 

機 

一能 


$ 巳0 EE 

メモリ（数値を変数テーブル用数値で格納）と FAC 1の乗算を実行 


する.メモリと FAC 1 の数値型は同一でなければならない* 


レジスタ | A, B ， X ， U 

入力情報| FAC1 =乗算する数値（単精度実数，あるいは倍精度実数） 

(0 0 15) =倍精度型のとき-$ 0 0以外，単精度型 f とき$ 0 〇 
X レジスタ =メモリ （変数 テーブル用 数値が格納され ている 箇所) 


復帰情報 

WORK 


SUB 


メモ 


F AC 1 


の先頭アドレス 

FAC 1と同じ数値型のデータを変数テーブル用数 
値であらかじめメモリ上に格納（被乗算数値） 
乗算された結果 


FAC 1， FAC 2， FAC 3 


(0015 


倍精度フラグ 


0 0 8 B ) =ここでは演算結果の符号バイト 


( 0 0 8 C 


保護バイト 


$ B 1 B A — メモリを FAC 2 へ 5-2 — 6参照 
$ B 1 D F —> 符号部と指数部の処理 
$8136—各桁の乗算を行う 

$ B 13 A — 同上 


$ B 2 EC 4 FAC 3 を FAC 1へ 
$ A F 9 7 —> 正規化ルーチン 5-2-3 参照 

蘇 了条件|結果が 1. 7 0 14 X 1 〇以 〜一 1 . 7 0 1 4 X 1 0 38 の範囲外のと 

き Error ( Overflow ) を発生する. 


解_説 I 乘算の計算は被乗箅数値をX ，乗算数値を Y と下のようにおいて， 

X = 2 " * V Y = 2 m * U ( V と U は仮数部） 

以下の計算を実行します. 

x 氺 Y 二 2 n+m 氺 V * U 
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F — B A S I C では以上のことを次のように実行します. 

(1) 演算結果の指数部と符号の決定 

$ 0 0 7 4番地 （F A C 1の指数部）に （n + m + $ 8 0 ) を代人します. 


これは結果の指数部を求めています. 

次に結果の符号部を求めるのですが，これは FA C 2へ数値をメモリから代 
入する際に$ 0 0 8 B 番地が表 5 • 3 • 1 のように求まリますからこれを利用 
します.つまリニつの数値が異符号のとき負 （b 7 に1が立つ），同符 1 '上のと 
き : iE ( b 7 に〇が代入される），と決定します.この値を$ 0 0 7 C 番地に入 


れます.これで符号と衔数は求められたので次に仮数部を求め，これを F A C 
1の仮数部に代入すれば答えが求まります. 


(2) 仮数部の計算 

6 8 0 9には， A レジスタの値を掛け合わせて， D レジスタに答えを入れる 
MUL という命令があリますから比較的楽に （ 10進数の掛け算のように）計 
算できます. 

図 5 • 3 • 2 を見て下さい.10進の計算の仕方をこのように書いてみます. 
次に図 5 . 3 . 3 を見て下さい.これが仮数部の演算です（ここでは単精度型 

を扱いました）.1つのバイトが10進数の1桁に相ル1します.つまり3桁の 
算を行っているのと同じになるわけです.具体的には次のようにします . F A 
Cl の下位バイトに F A C 2の下位バイトを掛け合わせてすぐ下に書きます（も 
ちろん コンビュータでは F A C 3上に書く ） •次に F A C 1の中位バイトと F A C 
2の下位バイトを掛け合せ前の値の1桁ずらしたところに書きます.このよう 
にして図のようにすベてのバイトを掛け合せていきます.その結果をすべて足 
し合わせて ， F A C 1の仮数部の上位からつめていけば乗算の仮数部が求まる 
わけです. ‘ 
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図 5 • 3 • 2 10進数の掛け算 


X 5 6 - 

r 4 2 ■“ 7 X 6 

この f 直をすべ 4 8 …8 X 6 

て足します.1 3 5 •••7 X 5 

1 4 0 ".8 X 5 



図5 • 3 • 3 FAC の仮数部の乗算 


FAC 2…… 
FAC I ……X 




、 —— 』 

結果を FAG I の仮数部の上位からつめていきます. 


_… I バイトを不します. 

"I…2 バイトを示します， 

わくの中の数字はアドレスを示します. S は省略しました. 
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5 — 3 — 4 実数の除算を行うルーチン 


アドレス」$ 8 2 3 4 

W \ メモリ（数値を変数テーブル用数値で格納）を FAC 丨の値で割る • 
メモリと F A C 丨の数イ直型は同一でなければならない. 

レジスタ] A ， B ， X， U 

入力情報 j F AC 1 =除算する数値（単精度実数，あるいは倍精度実数） 

(0 0 1 5) =倍精度型のとき$ 0 0以外，単精度型のとき$ 0 0 
X レジスタ =メモリ（変数テーブル用数値が格納されている箇所）の 


先頭アドレス 


復帰情報 
WORK 



終了条件; 


メモリ = FAC 1と同じ数値型のデータを変数テーブル用数値 

であらかじめメモリ上に格納（被減算数値〉 

FAC 1 =減算された結果 


FACT , FAC 2 ， FAC 3 
(0 015)=倍精度フラグ 
( 0 0 8 B ) =結果の符号 
( 0 0 8 C ) =保護バイト 

$ B 1 BA — メモリを FAC 1 へ 5 — 2 — 6参照 


$ B 1 DF — 指数部及び符号の演算 
$ B 2 0 3 —Error ( Overflow ) 発生 
$ B 2 21 —Error (Division By Zero ) 発生 
⑴ 結果が 1 /7 01 4 X 1 〇 3 し 


-1.701 4 X 10 


38 


の範囲外 


のとき Error ( Overflow ) を発生する、 


⑵ F A C 1が'0のとき ， Error (Division By Zero ) を発生する， 


解 _説 I FAC 1 の値を Y ， メモリの値を X とし， X， Y を下のようにおい 
たとき 

X 二 2 n *V Y =2 m *U (U と V は仮数部） 

以下の公式を用いて求めます. 

X V 

* _ 〇 n —m 小 

Y — Z 本 U 


F-BA S I C で V / U を計算するのに引き戻し法（実際には少し違う）とい 
う演算方法を用いています.この方法を，簡単にするため8ビットの数を4ビッ 
卜で割る場合について 図5 • 3 * 4 を使って説明します. 
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⑴のように 割られる 数（11101111)と 割る 数 （ 1〇+〇1 ) を1〇進 
数の割り算のように 書いて みます.次に (2) のように 割る 数を左から 割られる 数 
の桁に合わせてその下に書きます.次に⑶の点線で囲まれた部分の上の数と下の 
数を比べます，上の数から下の数が引ける（上の数の方が大きい）ときは最終桁の 
上に1をたてます.引けないときは0を書きます.この場合は引けますから⑷の 
ように1を立てます.そして引いた結果を前に書いた数値の下へ書きます.次に 

図5 • 3 • 4 除算の方法 





点線で囲まれた 
部分を比べる， 
この場合は上か 
ら下が引ける. 








( 6 ) 



上から下が引ける 
から i を立てる. 


I i I 
I 0 0 


0 



. __けない.この 
ときは0を立て上の数 
を何もせずに下に害く 



10 0 1 


同じことをする 


漆数値はすべて符号なし2進数です. 
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除算される数の 1 ビットを⑸のように下へずらし，り I いた結果の横へ置きます. 
ここでまた⑶と同様にして上の数と下の数を比較します.今度も引けますので⑹ 
のように1を立て，引いた答えをまた下に書きます，そしてまた同じように除算 
される数の1ビットを下へずらし，引いた結果の横へ書きます.そして (7) のよう 
にしますが，今度は上の数から下の数を引くことができません.ですからこの上 
の数をそのまま結果に書き，答えを求める所に0を立てます.このようなことを 
くり返して行えば答が求まります.最終的には図5 • 3 • 5のようになリます. 


図 5 • 3 • 5 除算の結果 


1001=9 

11101111=239 

I 10 10 = 26 






—引ける 


—引ける 
—引けない 


1001 ―引ける 


100 I ―引けない 

10 1 余り 


では次に F — BA S I C 内部での演算を考えてみましょう. 

⑴結果の指数部を （ n — m+$80+$l) と置きます丨※ 1 ) .結果の符号を 
表5 • 3 • 1の$ 0 0 8 B 番地の値にします.指数部を判断して結果が1 . 7 
01 .1 X1 〇 〜 1 • 7 0 1 4 x 1 0 38 の範囲外になるときは Overflow を発生 

します. 

⑵ Y (FAC1) が0の場合は ， Division By Zero を発生します. 
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(3) 仮数部を求めます. 

ここで求める仮数部を 2 i . Z 2 Z 3 Zi ……とします（※之）. 

V (メモリの仮数部 ）， U ( FAC 1の仮数部）を比較して2通りに分けます. 

( i ) V > = U (図5 • 3 • 4で引ける場合） 

Z i =1(商の所へ1を立てる） 

V 二 V — U とおく （図 5 • 3 • 4の⑷を実行）.⑷へ飛ぶ， 

( ii ) V<U (図5 • 3 • 4で引けない場合） 

Zi ^ 〇 ⑷へ飛びます. 

Zi が全部求められたときは⑶で終ります. 

(4) V =2 * V を実行します. 

i 二 i +1として⑶に飛びます. 

(嶔1> く※2 ) について 

(※〇で$1を足す： fill ] は次の通りです.実は（兹2)では Zi . Z 2 Z 3 で 
なく， 0. Zi Z 2 Z 3 のように求めなければ ， F A C に代入したときに1桁分 
ずれてしまいます.これを補正するのが$1を足すことなのです.例えば 0. 

1を 0. 1で割ると答えは 1. 0となりますがこれをそのまま FAC の仮数部に 
つめてしまうとコンピュータは1 • 0を 0. 1と判断してしまいます.この一桁 
分のずれをなくすのが$1ということなのです. 


※引き戻し法について 

大型コンピュータなどでは V と U を上匕較するところで V — U を行っています. 
その結果から引けるかどうかを判断します.ここで引けないときにはもとの V 
を求めるのに V — U + U というように U を足し直すわけです.つまリ引いてか 
らもとに戻すので「引き戻し」という名前がついたのです. 
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5—3—5 整数の加算 • 減算を行うルーチン 


アドレス I $ B D 5 2, $ BD 4 4 
機 能] $ BD 5 2 : FAC 1に FAC 2 を加える. 

$ B D 4 4 : FAC 1 から FAC 2 を引く. 

レジスタ] A ， 巳， U， X 

入力情報 I FAC 1 =被加（減）算数（整数型） 

FAC 2 =加（減）算数（整数型） 


(0017) =$02 (整数型) 



F AC 1 


結果（整数の範囲を越えた場合は単精度型になる) 



(0 0 17 ) = F A C 1の数値型を示す値 
FAC 1 , FAC 2 

$ BD 4 A — d レジスタを （007 6: 007 7) に入れる 
$ B D 4 A — 実数型のときに X レジスタの示すアドレスに飛 J 
$ A F 1 D — 実数型の加算 
$ A F 14—実数型の減算 

$ B C F F 整数を単精度実数へ 5 — 2 — 5参照 


$ B 3 8 0 —FA C 1を FA C 2 
$ B D 01—整数を単精度実数へ 


5 — 2 — 6参照 



結果が一 32768〜32767の範囲外のときは，単精度型の演 
算をする. 


解 説 I この演算は数値が2の補数表現で代入されているため，符号は考え 
ずにそのまま足し算や引き算を行っています.さらに6 8 0 9では2バイトの演 
算 ADDD や SUBD がありますので，非常に簡単なプログラムで行っています t 
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5 — 3 — 6 整数の乗算を行うルーチン 


アドレス| $ B D 7 8 

* W \ F AC 1と FAC 2を乗算を行う . F AC 1と F AC 2は整数でな 
ければならない. 

レジスタ j A , B , X , U 

入力情報 | F AC 1 = 整数（被乗算数値） 

FAC 2 =整数（乗算数値） 

(0 017 ) =$ 0 2 (整数型） 

復帰情報| F AC 1 =結果（整数型あるいは単精度実数） 

(0 01 7) =結果が巣精度型の場合$ 0 4が入る（他は$ 0 2) 
WORK I FACT , FAC 2, FAC 3 

(0 0 E 2 ) =掛けるバイトの保存 

s U Bj $ B D 5 C — 整数を単精度実数へ変換して演算ルーチンへ 

※ S B C F F — 整数を単精度実数へ 5-2-5 参照 
漆$日380 — FAC 1 を FAC 2 へ 5 — 2 — 6 参照 
以上の※のルーチンは$ B D 5 C 内部にあります. 

$ B DD 9—負の数を正の数へ 
$ B D 巳9 —結果が3 2 7 6 8になったときの処理 
$ BE 0 3 — FAC の符号を反転（整数型） 

$ B D 2 9—実数型のとき X レジスタが示す番地へ飛ぶ 
終了祕」結果が整数の扱える範囲を越えた場合は実数の計算をする. 

~m is ] 整数型相互の乗算は実数の仮数部の乗算の仕方とほぼ同じです. 
しかし，整数型の乗算では結果が2バイトを越えてしまう場合があります.この 
ときは FAC 1 と FAC 2 を単精度実数に変換して実数の乗算を実行します. 

では 図5 • 3 • 5 を簡単に説明します.まず F AC 1 の値と F AC 2 の値を正 
の数にします.後は図のようにして10進数と同様に1バイトを10進数1桁と 
考えて掛け合わせていきます.その結果を下に書き，下位から FAC 1 につめて 
いきます（ここが英数の仮数部と違います）. 
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図 5•3•5 整数の乗算 


0 0 7 6 [0 0 7 7 I FAC 1 
X 0084 |[ 00851 FAC 2 


すべて足し合わ 


0077 X 0085 


せて下に書く， 

0076 X 0085 

1 



0 0 7 7； 

>< 0 0 8 4 



0076 X 0084 



^ - ► 







この点線より上位に数値 
があるときは、実数化す 

る， 


ここの値が （ 0 0 7 6:0 0 77 
に入る， 




バイトの値 


イトの値 


の中の数値はアドレスを示す.$は省略する 


く例〉 FAC I =$ 0 0 A 0 = ! 6 0 

FAC 2 =$ 0 I 0 B = 2 6 7 


0 0 AO FAC i 

0 I OB FAC 2 

06 E 0 ( AO ) X ( 0 B ) 
00 00 (00) x (OB) 

00 A 0 ( A 0 ) X ( 0 I ) 

00 00 (00) x (00) 

A 6 E 0 

$ A 6 E 0 = 4 2 7 2 0 となる. 
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5-3-7 整数の除算 • 余りを求めるルーチン 


アドレス 

機 能 


レジスタ 

入力情報 


$ BE 0 C , $ BE 3 3 

$ BE 0 C : FA C 1 を FAC 2 で割った商を求める. 

$ BE 3 3 : FAC 1を F A C 2で割った余りを求める. 
A , B , X , U 

F AC 1 =被除数（整数型） 

F AC 2 =除数（整数型） 

(0 01 7) =$0 2 (整数型） 


A レジスタ 


復帰情報 F AC 


$ 0 0 7 6番地の値（余りを求めるとき） 

結果（整数型）〔結果が （+ 3 2 7 6 8 ) このときは単 
精度型となる 




(0 01 7) =結果が単精度型のときは$ 0 4が入る（他は$ 0 2 ) 
FAC 1 , FA C 2 
( 0 0 8 B ) ==結果の符号 
$ BDD 9 —符号の処理，引数の退避 
$巳 E 2 2—演算ルーチン 
$ B D B 2—演算後の処理：整数—実数など 
$巳 E 01 —F A C の符号を反転（整数型） 


終了条件 F A C 2が0のときは E 「 ro「（Division By Zero ) を発生する. 


jm 説 I 英数の項でも述べましたが F —BAS I C では除算に引き戻し法と 
いう方法を用いています.しかし整数型の場合は実数型と異なり完全な引き戻し 
法を実行しています.では，正の整数についてのリ I き戻し法の方法を示します. 
5-3-4 の方法と比較して下さい. 

簡単に，被除数を8ビット，除数を 1 ビットの正の整数と考えます. 図5 • 3 
• 6 を御覧下さい. （4) までは 図5 • 3 • 4 の⑹までとほとんど同じですが 図5 • 
3 • 4 では上の数と下の数を比較するのに対し， 図5 • 3 • 6 では何も考えずに 
_ヒの数から下の数を引いてしまいます. （5) 〜 (6) にかけてが実数のときとの遠いで 
すが，このときは引いた数が負になっていますので答えに0を入れ，除数を足し 
直します（これが引き戻し法の名の曲米です）， 

次に F —BAS I C 上での簡単なアルゴリズムを述べます. 
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( 3 ) 

10 0 




図 5 *3 *4 と違って 
ここでは上から下を引 
<• 



この値を調べて正なら 


I f 負なら0を上に書く 


(この場合は正である 
から1を書く）. 







ここに I 
があるつ 
もりで引 
< 



この 場合は上から 
I 桁借りてきたこ 
とになるので，負 
の値を示している. 


⑺あとは同じ要領で答えを求める+ 


( 4 ) 

10 0 


]M 0 I I I I 



10 01 


0 0— 負の数である. 





(1) $ 0 0 8 B 番地に演算結果の符号を入れます （F A C 1と F A C 2の符号を 
比べ異付号なら b 7 に1を入れ同符号なら0を入れます). 

(2) F A C 1と F A C 2の絶対値をとリます. 

⑶引き戻し法によリ絶対値の商と余リを求めます. 

(4) $ 0 0 8 B 番地や$ 0 0 7 6番地の内容によって商と余りの符号を決定しま 

す. 

なお⑶で一 3 2 7 6 8 /-1を実行すると FAC には単精度実数として答えが 
入ります. 
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5-4 単項演算 


以下にあげるルーチンは単項演算（リ I 数が一つの関数）ですが，前部にある 
S I N ， COS ， TAN ， EXP ， SQR ， LOG , A T N は単精度型の場合しか 

利用できません. 

次にこれらの単項演算の簡単な使い方で，使い方によってはかなり高速に動く 
フ’ログラムの一 例をあげておきます. 

く US R 関数の使い方〉 

⑴単項演算と U S R 関数 く例1> 

U SR 関数は，例1のよう 100 INPUT X 
な BAS I C プログラムを実 2 0 0 DEF USR 0 =&H 5 0 0 0 
行した場合， X をマシン語の 300 Y 二 USRO ( X ) 

メモリ上に保存した後$ 5 0 
0 〇番地からのマシン語プロ く例2> 

グラムを実行します （ F—B J S R 
A S I C 文法書 P -3-42 RT S 
参照). 

このとき注意していただきく 例 3> COS を行う 
たいのは引数が数値型の場合 JSR $ B E 6 0 

FAC 1 に格納され，$00 RTS 
17番地に数値型が代入され 

るということです.しかも R く 例4 > SIN を行う 
T S などで制御が B A SIC JSR $ BE 6 6 
上に移ると F A C 1の値がそ RTS 

のまま Y に代入されます.で 
すから例2の囲みの中に，こ※マシン語は BAS 1 C を動かす前に入れてお 
の節であげるサブルーチンの きます. 

アドレスを代入すれば U S R 

0 ( X )がその関数になるわけです.例3では U S R 0 ( X ) = CO S ( X )となり 
例4では U SRO ( X ) 二 S IN ( X ) となります. 

ただし，入力情報の数値型が引数と一致していなければなりません.ですか 
ら例3で X の代りに X $ などは使えません. 


$5000番地よ 
り代入 


$5000番地よ 
り代入 
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(2) 関数の高速化 

(1) の応用になりますが，例5の 
ようなことを U S R 関数で行いた 
い場合は，例6のプログラムを書 
き，その後例1の B A S I C プロ 
グラムを実行すれば Y に結果が代 
入されます. 

つまり ， U S R 0 ( X ) = S I 
N (COS (TAN ( X ) )) と 
なるわけです. 

これらのプログラムは単項演算 
の計算回数が多 v 、ほど，単に B A S 

I C を使うよりも高速になります. 

さらに例7のような関数も5 — 
3節や5 — 2節のサブル ー チンを 
利用して例8のようにできます. 
ここで注意していただきたいのは 

数値型で，入力情報や復帰情報を 
十分理解した上で行って下さい. 


く例5 > 

SIN (COS (TAN ( X ) )) 
く例6 > 


J S R 

$ BEB 1 

J S R 

$ BE 6 0 

J S R 

$ BE 6 6 

RT S 



く例7> 

SIN (X + CO S ( X ) ) 


く例8> 

LDX $6000 
JSR $ B 3 3 7 
JSR $ BE 6 0 : COS 

LDX $6000 

LDA #$00 ) 倍精度フラグを 

STA $0015/ $〇〇にする. 

J S R $ AF 1 A 


JSR $ BE 6 6 : SIN 

RTS 


$ B 3 3 7 : メモリに F A C 1 を保存 
$ AF 1 A : メモリと FAC 1 の加算 

5-3-1 参照 

崁マシン語は$ 5 0 0 〇番地から代入しま 

す. 
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5 —4—1 多項式演算を行うルーチン 


アドレス」 $ BB 94, $ BBA 3 

_m _ t |] 引数の多項式演算を実行する. 

レジスタ] A , B , X , U 

入力情報1 X レジスタ=図5 • 4 • 1で示したようにデータの入っている箇 

所の先頭アドレス 

(0 0 17) = 単精度型を示す数値（$0 4〉 

FAC 1 = 単精度実数 

復帰情報 | F AC 1 =多項式演算の結果（単精度型） 

WORK ] (8 D ： 8 C ) = X レジスタの保存 

( 0 0 7 D ) =データの個数を格納 

「 SUB ] $ B 3 3 0 — FAC 1を （0 0 5 F ) からの4バイトに格納 

$ B 0 EE — 乗算を行うルーチン 5—3—3参照 
$ B 3 2 B — FAC 1を （0 0 6 3 ) からの4パイトに格納 
$ A F 1 A — 加算を行うルーチン 5 — 3—1 参照 

~m ^*1 TAN , COS , SIN ， ATN ， LOG , EXP という演算を行 
う際には，必ず近似多項式を用いますが，この近似多項式を計算するのがこのル 
—チンです. 

では具体的な式をあげて説明します. 

♦ $ B B 9 4番地の場合 

引数を X とし結果を Y とすると次の多項式を計算します， 

Y = X ( a 〇 + a 1 X 2 + a 2 X 4 + a s X 6 . an X 2 n ) 

ここで ai は 図 5 . 4 • 1 のようにあらかじめメモリ上に格納しておかなければ 
なりません.まず X レジスタの指す番地に n (データの数一 1) を代入します. 
その次のバイトから4バイトずっ，定数を a n から順に変数テーブル用の単精度実 
数の格納法 （5 — 2 — 6参照）にしたがって格納していきます. 

このル ー チンのフロ ー チャ ー トを図 5 • 4 • 2 に示しました.このフロ ー チャ 
ートは次の式の （） の一番内部から順に計算しています. 
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Y = X ( a 〇 + X 2 ( a i + X 2 ( a 2 + X 2 (. ( an -> -f a n X 2 )) ) 

• $ B BA 3 番地の場合 

引数を X とし結果を Y とすると次の多項式を計算します. 

Y = a 〇 4- a 1 X + a 2 X 2 + a 3 X 3 + a 4 X 4 . . a n X n 


定数 ai の格納の仕方は $ B B 9 4 番地の場合と同様です. 

このルーチンのフロー チヤー トを図5 • 4 • 3にフ R しました.このフロチヤー 
卜も以下のような計算の一番内側の （） の内部から演算しています. 

Y = a 〇 + X (ai + X ( a 2 + X ) * *. ( a M -! + anX ))〉） …） 


サンプル | 以'ドのサンプルは配列を用い，ドの式の定数を代入して Y の値を求 
めるプログラムです. 

Y = ao 4- ai X + a2 X 2 4 - a 3 X 3 + a 4 . anX n 

配列の格納の仕方は 2 - 2-2 を御覧いただければわかリますが 図5 -4-1 
とほぼ同様です.異なっているのは 図5 • 4 • 1 の光頭の®•所に n が入っている 
のに対して配列では n + 1が入り， a n は配列 A ( 0 ) の筒所に入るという点です. 
ですから a , ] の値を A (0) に代入するのと同様に a n 〜 を代入します （ 17 0行目 
から）. 

この ルー チンへの入力情報は X レジスタに 図5 • 4 • 1 の先頭アドレスですか 
ら， AD %— 1をメモリ上の （4 FFE :4 FFF ) に入れます 〔A ( 0 ) の先 
頭アドレス ー 1に配列の個数が入っている，2 2 0行目から〕. 

2 8 0行目よリ，マシン語 S 5 0 0 〇番地からの命令を実行します.$500 
0番地からの L D X で X レジスタにデ ー タの先頭アドレスを読み ， D E C で n + 
1を n にしておきます. USR 0 を実行したとき ， F AC 1に X の内容が入リま 
すので入力情報はこれですベてそろいます.この後$ BBA 3 番地を呼び出せば 
よいわけです. 
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1 00 J 箐赉女戈省*箐冬廿菁#箐爷*箐并箐*令菁爷关簧*昔**令#箐并爷 fr **， jf * 并篑篑箐#长箐★菁并戈菁菁脣并菁菁*菁嗛 

110 ^ クコウシ千ノ my 箐チ篑簧*长箐长★箐甘普并♦ル* 

120 '普**普爷箐篑簧+ #箐并箐爷簧箐簧簣普#爷*簧#1##*簧箐箐簧簧簧长朞并* ♦箐簧箐普#普**##爷雀**善并 ■« ■嗛 

130 x = 0 : Y=0 

140 DEF !JSR0=!v.H 5000 
150 INPUT^N^' 4 ,N 
160 DIM A(N) 

170 > テ， f スウノク“イニユウ 

1B0 FOR 1>0 TO N 

190 PRINT "A( ， _;N-I : INPUT A<I) 

200 NEXT I 

210 INPUT ^ X^",X 

220 AD'/.^VARPTR <A (0)) 

230 AD%=AD ■ 乂 一 1 

240 、 Vf レ■ソノ Address ヲ メでソ f 、 

250 POKE ?^-f4FFE,AD7, ¥ 256 
260 POKE ?.H4FFF, ADZ MOD 256 
270 * ザ □ ウシ守ノシ u w 3 ■ク 

280 V=USR0(X) 

290 PRINT^Y^^;Y 
300 END 


PAGE: 001 <821201 ,033302) SAMPLE 

00010 # ヲコウシ千' 


00020 




NAM 

SAMPLE 



00030 

5000 



QRG 

¢5000 



00040 




OPT 

MEM 



00050 

5000 

BE 

4FFE 

し DX 

本 4FFE 

ハイ!/リノ 

Address 

00060 

5003 

6A 

84 

DEC 

,x 

(A イレツ ノ 


00070 

5005 

BD 

BBA3 

JSR 

*BBA3 

ヲコウシ午 ノ 

ヴイサン 

00080 

5008 

6C 

?F 4FFE 

INC 

C$4FFE3 



00090 

50 OC 

39 


RTS 




00100 




END 




TOTAL 

ERRORS 

； 00000 一一 00000 






TOTAL WARNINGS 00000— 一 00000 


RUN 

N~S 

A( 5 ) 二？ 2 
ft( 4 )=? 2 
A( 3 >=? 4 
A( 2 >:_? 3 
A(1 卜？ 5 
A( 0 )«? 2 
X ^2 

Y=152 


Ready 

HARDC 


5—4—2 SIN . COS を求めるルーチン 


アドレス」$ BE 6 0, $ BE 6 6 

$ BE 6 0 引数（単精度実数）の： 3 サインを求める. 

$ B E 6 6 引数（単精度実数）のサインを求める. 

レジスタ| A ， B ， X， U 

入力情報 [ FAC 1 = 単精度実数の引数 

(0 017)=単精度型を示す数値 （$0 4) 

復帰情報1 F AC 1 =S I N , COS の結果（単精度実数） 

WO RKI FAC 1, FAC 2 

( 0 0 8 B ) 

sub ] $B 3 8 0 — FAC i を FAC 2 へ転送する 5 — 2 — 6 参照 

$ B 2 2 D—FAC 2を変数テーブル用数値で割る 
$ B 4 7 2 —FA C 1の I NT をとる 5 — 4 — 8 参照 
$ A F ! 4 — FAC 1 を FAC 2 から引く 
$ A F 11—減算ルーチン 

$ BB 2 F — 符号反転 

$ A F 1 A — 加算ルーチン 
$ B B 9 4—近似多項式 5 _ 4 — 1参照 

解 説 I 以下に SIN，CO S のアルゴリズムを述べます. 

© SIN について 

ここでは引数 （F AC 1に代入する値）を X とします. 

(1) X が非常に小さいとき（絶対値が 9. 7 6 5 6 2 X 10 - 4 以下のとき） 

次の公式を使います.他のときは⑵へいきます. 

SIN ( X ) = X ( X # 0 ) 

(2) X = Y + 2 n ; r と置きます （ n は整数).ここで次の公式を利用します. 

SIN ( X ) = S I N ( Y + 2 n k ) = S I N ( Y ) (0 ^ Y < 2 n ) 

変形して 

SIN { 2 Jr h ^+ n ) l=SIN ( Y ) …… ① 
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p 


そこで①式の左辺の （） の中の I NT をとると n になるのに注目して 
卜算します. 


Y 


9 


を 


71 


Y 


X 


I N T 


X 


K 


TC 


K 


の Y の値によって場合分けをします 


図5 • 4 • 4を御覧ドさし 


^ Y < 


7 T 


図では I の領域 


Y はそのままで (3) を実行します, 


冗/ 2(90°) 


( ii ) 


7 T 


^ Y < 


K 


図では ii ， m の 


領域 


SIN ( Y ) 二 S I N ( ; r - Y ) 



を利川 




すの 


Y — 7 T - Y 


置き直します. 


⑶へ飛びます, 


( iii ) 


7T 


^ Y < 2 7 T 図では IV の領域 


S I N ( Y ) = S I N ( Y - 2 7 T 


という公式よ 

Y—Y- 2 
⑶へ飛びます_ 


TC 


叩き直します. 



※⑴， （ ii ), W を計算する 


で，⑶の近似計 


算の適応できる範_の Y の値に Y を変換し 




⑶次の近似計算を実行します, 



a 〇 = 6 . 2831850 
a I = - 41, 3 4 1 6 7 5 
a 2 = 8 1, 6 0 2 2 3 4 
a 3 = — 7 6 , 57498 
a 4 = 39. 7106 7 0 
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の結果が SIN ( X ) の結果となります_ 


參 CO S について 

COS は以下の公式より計算します. 


cos 



ですから CO S を求めるには X に tt /2 を足してから S I N を求めればよいので 

す. 


<S I N , COS の BAS 1 C によるシミュレーシヨン〉 

以上のことを B A S I C 上で行ってみました.定数などは文章中のものより桁 


数を多く求めてあ 1 )ます. 


で用いた Y #は文中の Y / 2 7 T に相当します- 


100 '并并普光灰箐箐普菁雀 BASIC SIN SIMULATION 箐簧簧灰胥脊爷嗛并箐箐簧爷■せ*爷箐 
110 ^仆戈鲁ネ*■簧箐雀#誉戈箐箦脊:簧箐苷必**诔脊并箐先史说*箐箐箦斧并普*先*菁 n 菁岭+蚤# 

120 • 3. 141592654; iY -f 

} 30 /并 K 升ボ X 夫ボ■中簧滅央灰#箐并箐*青* H キ长箐箐也.年#箐來黃令箐 * K 爷并ギ爷斧势爷长省#餐簧令箐箐爷於菁 

140 INPUT Z#-X# 

150 ' x ir o ニヂカイト中 J vb y 

160 IF ABG ( X # K . 000976 52# THEN Gtt ^ x #: GGT 0 230 
170 Y #^( Xft /3 H 1415926 S 4#/2~ INT ( X #/3 - 141 S 92654 #/2)) 
iso # ，〇スウハ:バニヨル 』 r ァィつヴ 
190 IF Y #<.23 GOTO 220 

200 IF Y#< M 75 THEN — Y# ELSE Y#^Y#-1 

2 j . 0 * 中ンシ ^30 L > t ノ ケイ 1 アン 

220 ¢6, 28318 5#+-41.34 i 675#^ Ytl * V # + 81, 602234 #^ Y #^ Y #* y #* Y #+-76■ 57498 #^ Y #^ Y#^V 

S * Y #^ Y #^ Y # f 39 P 71067#^ Y #^ Y #^ Y »^ V # m - Y #* Y #^ Y #^ Y #) 

230 PRINT "BASIC 5 INC "; Z #; ,J )= n ; G #, '' SINf 11 ; Z #; l, )= M ; SIN ( Z #) 

240 END 

t_0(_) ■" 普 . k-"M m. 并 -w. 普 ★ BASIC COS SIMULATION .ut 灰 ■ ゼ ■# ♦ 并 ★ 女菁并女普 .* 并 -x ■ ボ . 斧 * 普'-片 

11 0 ' ■ 长分并脊并 ■ 朞女齐箐箐普并爷箐 * 昝 * 甚脊 # 并簧诜爷箐井 # 箐 * 士箐味光箐*并蒉岭必箐爷昝箐务箐 

120 ^ 3. 1415926 S4: 0" ■( 

i 30 * ^ 关每餐女キ长令… mK * 灰キ . H 本'^ 〇如餐井1并普普长餐 " N ■普女井讲 # ，)f 畏务菁务令 _ 普畏女夺奋务■普 

140 INPUT ^ X #; Z #- X # 

150 X#=3. 141592634 #/2-*X# 

160 s X fl " 0 ニチカ f 卜中.ノシ a リ 

170 IF ADG(X#)<. 00097^52# THEN G#^X#:GOTO 240 
180 Y#=(X#/3. 141592654 #/2-INKX#/3.141 592654 #/2)> 

190 w 、ン; 5： ウ八。イニ3ルアイ9ケ 
200 IF Y # ぐ25 GDTD 230 

210 f.F Y #<*75 THEN Y #=. 5- Y # ELS に Y #= Y # i 

220 ^ 干ンシ"クコウシ中 J 7 f ?：> 

230 G #= Y 棒关 ¢6. 2 B 3 J B 5#4-41•341675#* Y #* Y #+81. 602234#* Y #^ Y #^ V #^ Y #+-76 -57498#* Y #* Y#*V 

林普 Y##Y 林 +39, 71067 S*Y#^ytt*Ytt^Y#*Y#*Y#->f Y#*Y#) 

240 PRINT "BASIC CDE ； (” j Z#Gtt , "CDS r 1 ; ZS ; “> 二"？ COS ( Z #) 

250 END 
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5 — 4 — 3 TAN を求めるルーチン 


アドレス 

機能 

レジスタ 

入力情報 


復帰情報 
WORK 


SUB 


$ B E B 1 


引数（単精度実数）の TAN を求める. 


A , B , X ， U 

FACi =単精度実数の引数 


0 017)=単精度実数を示す数値 （$04) 


F A C 


Al \ l の結果（単精度実数) 


(5 F 〜 62) = F A C 1の保存 


(6 B 〜 6 E ) = FAC 1の保存 
(0 0 70 = FA C 1の符号部 

(001 C ) = TAN 場合分けフラグ 
$ B 3 3 O — FAC 1を （ 0 0 5 F ) からの4バイトに保存 
$ BE 6 6 -^S 1 N 5 —4 — 2参照 

$B 3 3 7-> FAC 1 をメモリ上へ変数テーブル用数値で保存 


$ B E D 0 —S I N の途中へ 


$ B 2 3 4—除算 ルー チン 5 —2 — 4参照 

$ B 3 0 ! -> メモリ上から F A C 1へ数値を代入 

終了条件 |1.57079632〜1.5707964 3の数値とこれに n ? r を 

加えたものは Division By Zerd を発生する 



TAN は基本的には以下の式を実行しています. 


TAN (X) 


S I N (X) 
COS (X) 


しかし， S UB の項を御覧いただければわかりますが， CO S のアドレスを呼び 
出していません.これは S I N を求めた後にまだメモリ上に Y/2 7 T の値が保存 
されているためです.この際に; r / 2‘Y<3 ； r/2 のとき $001 C 番地にフ 
ラグを立てておきます. TAN が実行され S I N のルーチンか 1 冬ると，このフラ 
グを調べます.このフラグが立っている場合は Y/ 2 ；r から 1 / 4 を引いて，立 
っていないときは，1から Y /2 tt を引きます.この値を近似多項式に代入 
すると CO S が求まるわけです， 


262 








5 — 4 — 4 A TN を求めるルーチン 


アドレス $ B E F 5 

機能 |引数（単精度実数）の ATN を求める • 

レジスタ 丨 A , B , X , U 

入力情報| FAC 1 =単精度実数の引数 

(0 0 1 7) =単精度型を示す数値 （$0 4) 

復帰情報 i FAC 1 = ATN の結果（単精度実数） 

WO R K I ( 0 0 7 C ) 

SUB ] $B F 1 F ~>$ B B 2 F ：符号反転ルーチン 

$ BECD ->$ B 234 :除算を行う 5 —3 — 4参照 
$ B E AE — $ B B 9 4 :近似多項式 5 — 4—1 参照 
$ A F 1 1— 減算ルーチン 5 —3 — 2參照 


解 _説 I アルゴリズムは以 ' ドのとおりです（引数を: K とします）. 

⑴まず次の 4 つの場合に分けそれぞれ処理を行います， 

⑴ 0 S X < 1 のとき 

X のイ直はそのままで (2> を実行します. 

( ii ) 1 SX のとき以下の公式を利用します. 

ATN ( X ) = + -ATN ㈤ 

X —1 /X と置いて⑵の近似式を行った後， ； r / 2 から結果を引いて答え 
を出します. 

( iij )— 1 < X < 0 のとき 

以下の公式を利用します. 

ATN (- X ) = - ATN ( X ) 

X < 一一 X と置いて⑵の近似式を実行した後，符号を反転させます. 

( iv ) X ^ 一 1 

この場合は⑴)の公式と W の公式を利用します.つまり次の公式を実行して計 
算するわけです. 


ATN (- X ) 二-吾 


ATN 



X *-- 1/ X と置いて⑵の近似式を行った後，結果から; r / 2を引いて答え 
を求めます. 
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(2) 次の近似式を行います. 


ATN ( X ) == X (ao + aiX 2 + a2X 4 + a 3 X 6 + a4X y 

+ a 5 X 10 + aeX 12 + a/X 14 + a 8 X ie ) 
a 8 = 2 . 8 6 6 2 3 x 10 - 3 
a 7 =-1. 61657 XIO- 2 

a e = 4 . 29096X10 - 2 

as = - 7 . 52896X1 0- 2 

a 4 = 0 .1 0 6 5 6 3 
a 3 = - 0 .1 4 2 0 8 9 
a 2 = 0 . 199936 
ai = — 0 . 3 3 3 3 1 

a o =1. 0 0 0 0 0 

⑶上の近似式を実行したのち， （1) の場合分けにしたがって ATN ( X )を求め 
ます. 

※⑴の場合分けについて 

⑴の場合分けを実行することにより，すべての X の値の ATN ( X )が0 
SX く1のときの ATN ( X > を，求める近似式より得ることができるわけで 

す. 

く ATN の BAS I C によるシミュレーション〉 

14 0行目と17 0 • 18 0行 FI は以上で'述べた場合分けを実行しています. 

この計算では倍精度実数を使っていないため， ] の付近でかなりの誤差を中じて 
しまいます. 


100 ^ 菁箐 iK ■ 箐 # 箐 ★ 斧箐箐ル箐 #**** 音爷关青菁脊 ★ 升 ★★ 菁篑箐普长 '*( ■ 爷爷 ★★ 箐长箐黃 * 关黃 ■ 箐ル ** 斧长 * 长 . ネ箐箦雀**^■箐脊 

]. 1 0 菁升箐箐 BASIC ATN SIMULATION 菁 # 普女 * 菁箐箐 # 省箐箐菁箐普 i 餐 

1 2U ^ 箐 hm ■ 爷并普 # 普 #)(■ 箐於簧箐箐好箐箐菁菁簧箐箐 * 箐菁赘昔 * 普脣箐脊簧簧 ★ 青 > 箐升膂贅箦黄黃普脊贅资 # 簣 ★★ 长女 * 升箐★★普箐脣普黃 

130 INPUT 11 X = tl ; X 

140 IF 1<=AES ⑴ THEN Z = 1/ABS(X) ELSE Z=ABS (X) 

150 • ，外 》 臀箐 x 簣 KIN J I TAKOUSHI K I ■ 夫 ♦ 菁并黃务卄普 4 胥箐於箐爷 j (■箐箐箐箐箐箐箐簀簧篑先 

160 COTAE-Z^ ¢1 へ 333315 (, 1 99936-^Z^ Z* (- . 142089+-Z*Z* < •106563+Z*Z* (~7 B 528 
96C 02-^Z^Z>(4.29076E -02 + Z-^Z* (-1.61657E-02>Z^Z*2.86623E-03) ))))))) 

170 IF 1<=ABG(X) THEN CQTAE=3.14159/2-CDTAE 
ISO COTAE^SGN(X)*COTAE 

190 PRINT "BASIC ATN < (t ; X ? ,r ) ; COTAE , M ATN ( 11 ; X; 11 ) = ,# ; ATN ( X ) 

200 END 
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5 — 4 — 5 EX P を求めるルーチン 


|_アドレス]$ B B 5 B 


機 


能1引数（単精度実数）の EXP を求める 


髻 


レジスタ] A , B , X , U 

入力情報 1 FAC 1 

(0017 

復帰情報 I F AC 1 


単精度実数の引数 
単精度を示す数値 （$0 4) 
TAN の結果（単精度実数) 


WORK ] ( 0 011 ),( 0 0 8 B ) 

SUBj $巳3 3 0 — FAC 1を （ 0 0 5 F ) からの4バイトに保存 

$ BBA 0^$ B 0 EE :乗算ルーチンへ 5 — 3 — 3参照 
$ B 1 F 5 ~>Error 処理 


$ B 4 7 2 


5 — 4— 8参照 


$ A F 1 A — 加算ルーチン 5 — 3—1 参照 
$ B 0 E B -^ log 2 氺 F A C 1 
$ B B 2 F — 符号反転ルーチン 
$ B B A 3 — 近似多項式ルーチン 5 — 4—1参照 


$ A F 1 

[ Wi 条件 1結果が1 

する. 


減算ルーチン 5—3—2参照 


7 014 X 


38 


を越えた場合は E 「「 o 「 (O ver f| ow ) を発生 


解 


説 | EXP ( X )の計算の一般的な方法は以ドのとおりです • 
E X P ( X ) = E X P ( n log 2 + Y ) =2 n * EXI ) ( Y ) 


の EXP ( Y ) と n を求めれば EXP ( X ) を求めることができます （ n ( 



整数， 0 S Y く〗 og2 )• 次に F —B A S I C 上でのアルゴリズムを述べていきます 


(1) X を log 2で割ります • Z = X / log 2 と置きます. 

〔このとき， IN T (Z) が n に相ガします〕 

(2) Z の値によって以下のように場合分けします, 

( i ) Z の値が12 8以上のとき（ X が8 8. 7 2 2 9以上のとき） Overflow を 

発生します. 

( ii ) Z の値が一12 8以下のとき（父が一 8 8.7 2 2 9以下のとき ） F AC 1 に 
0 を代-入して終ります. 

( iii ) それ以外は⑶を実行します. 
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⑶ Z の値の I NT を取ります.この値が12 7のとき（ X が8 8.0 3のとき） 
は Overflow を発生します，それ以外のときは (4) へ行きます. 

(4) EXP ( Y ) を求めます . EXP ( Y ) は近似計算で求めますが，まず以下 

のような準備をします. 

U = X —log 2* (INT (Z ) +1 ) = Y —log 2 
v = — U と置きます. 

(5) 以下の近似計算をしますがこの近似計算は| E X P (Y > ! / 2を求めるこ 
とになります. 

E X P (Y) /2 = ao+aiV+a2V 2 +a3V 3 +a4V 4 

+ a 5 V 3 + a e V 6 -f- a 7 V 7 
a 〇 = 1 . 0 
a l ~ — 1 . 0 
a 2 = 0 . 5 

a 3 — ~ 0 . 166 66 5 

= 4 .1 6 5 7 4 X 1 0 -2 
a 5 = - 8 . 3 013 6 X 10 ~ 3 

ae= 1. 32988 X 1 0 - 3 

a 7 = — 1 . 41316 x 10 ~ 4 

(6) EXP ( X ) = 2 n+1 * EXP ( Y ) / 2 より求めます.具体的には n +1 を 
EXP ( Y ) / 2 の指数部に足します. 

く EXP の BAS I C によるシミュレーション〉 


100 f ^ #*****#*#***■«■*■»# #41^ *#*#*#*#****#* *#***^# **##•#**# 

110 * 菁營势黃舞 *** 斧普蚕 #* 蜂#音着簧菁 BASIC EXP SIMU し ATI0M 并舞菁佚 ★ 聲黄舞 # 聲*普普普簧并并资朞舞箐 

120 * 关箐菁 k 箐 * 篑箦省簧箐箐 #* 箐雀 #** 箐 ♦ 名 ■ 箐簧誉簧箐箐箐朞 * 箦箐冬 *# 簧簧 ★ 普箦 * 着 # 蒉篑箐簧务 * 菁 # 簧簧箐箐 4###* 雀 ■« 菁箐 * 备 * 

130 | I .44270 ; 1/L0G(2) 

140 " 簧簀菁朞黃 ★ 簧，雀蒉 *# 箐省 # 雀普 * hhi 箐箐箐箐 * 箐簧 + 箐，荼菁箦蒉 # 箐菁菁箐箐雀脣簧箐省菁雀簧簧 * 簧箐箐箐箐 * 箐普箐簧荼簧箐簧箐箐聲 

150 INPUT 1, X = i, ; X 
160 Z=X^i. 4427 

170 d Error シヨリトコヲエ tT 0 ニ チカ， 0 ，宇ノ i/a リ 

180 IF Z = >128 THEN PRINT 11 Over f i aw" : BEEP : END 
190 IF Z<—128 THEN C0TAE=0:G0T0290 
200 IT INT (Z^127THEN PRINT "Overf 1ow 11 : BEEPs END 
21 (:' U=X-* 6931 47* ( INT(Z) +1) 

220 V= - U 

230 ' キン L 广ヲニ 1 ウシ宇ノ mif 

240 COTAEI^l! +V* (-1 !+V ，（， 5+V 舞（一 .166665 +V* (4_ 16574Et (*8, 30101 E-03+V# {1, 32988 E ； 

-03+V*-l* 41316E—CH)))))) 

250 ^2 ノ n+i i 广 3 ウラカケル 

260 FOR 1=0 T[] INT(Z) 

270 CaTAE=2*CDTAE 
280 NEXT I 

290 PRINT M BASIC EXP (_•; X CDTAE , _*EXP X ゴ ，； EXP ( X > 

300 END 
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5 —4—6 LOG を求めるルーチン 


ァ 

ドレス 

機 

m 

レジスタ 

入力情報 


復帰情報 
WORK 
SUB 


終了条件 


$B 0 A A 

引数（単精度実数）の LOG を求める • 

A , B , X , U 

FAC 1 = 単精度実数の引数 

(0 017)=単精度型を示す数値 （$0 4) 

FAC 1 = LOG の結果を単精度実数で代入 

( 0 0 7 4) = F A C 1 の指数部 
$ B 3 A 0— 符号判定ルーチン 
$ B 0 B 2— 符号反転ルーチン 
$ 9 6 6 3 —Illegal Function Call 
$ A F 1 A — 加算ル ー チン 5 — 3 — 1 参照 
$ B 2 3 4 — 除算ルーチン 5 — 3 — 4 参照 
$ A F 1 1— 減算ルーチン 5 —3 — 2 参照 
$ B B 9 4 —> 近似多項式ルーチン 5 — 4 —1 参照 
$ B 330— >( 005 F ) からの数値データを FA C 1 へ 
$ B 3 C 0 — B レジスタの値を整数型にする 
$ B C F 整数型を単精度型へ 5 — 2 — 5 参照 

^$B 0 EE — 乗算ルーチン 5 —3— 3参照 

^このルーチンは LO G の内部にある. 

引数が負の数のときは Illegal Function Call を発生する 


解 説丨一般にコンピュータで LOG を求めるためには内部数値型式が2進 
数であることを利用して以下の公式を利用します. 


LOG ( X ) = LOG (2 n * Y ) = log 2 * (n + log 2 Y ) 


こで 


とぉきます 
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f ( Z ) #ao+aiZ 2 +a2Z 
ao=2.88539 
a i= 0 . 9 614 71 
a2=0.598979 


\ 

ここは F —BA S I C 

I のものを用いています. 


LOG (X)= log 2 * i n -y+Z * f (Z) 

log 2 = 0. 6 9 314 7 


次に F —B A S I C ではどのように行っているかを述べます. 

(1) 引数が負あるいは0のときは Illegal Function Cal ] を発生します. 

(2) A レジスタ— （ 0074) ——$80 これが n を求めたことになります • 

(3) ( 0 0 7 4 ) — $ 8 0 



Z = 


(Y -V2/2) 
(Y+^2/2) 


を求めます • 


(5) LOG (X) =log2* in-y+Z* f ( Z )\ を計算します. 

し 


f (Z) はーヒの f (Z) と同じです- 


く LOG の BAS I C によるシミュレーシ3ン〉 

文中の II がこのプログラム上で I となっている他は文中の文字を使っています. 


100 r 务着蒉#脣簧箐篑箐普****+黃4簧菁*箐斧簧爷普#ザ普省#*雀脣黃书#雀#普簧箐# K ■箐菁篑蒉箐篑雀玲#箐箐箐 "X 簧* 

11 〇 ' 簧爷篑簧并箐) M 簧4菁脊长箐箐箐箐簧*#务菁箐脣箐簧菁箐务»箐荼#朞*箐箦*簧簧 M 簀普# I 簧篑簧箐簧菁簧菸普**簧箐#普菁■簧 

120 ^爷 ★♦簧雀 »#*** DAS IC LOG SI MU し ATION 簧关#脊酱并#簀脊黄菁箐 *** 脊簧箐*箐箐爭箐菁* 

130 * 箦菁# 务 簧驀箐菁舞*爷#箐菁箐箐箐普簧#普***箦赘夤箐*箐菁*朞菁箐箐簧簧箐簧蒉箐爷苓菁簧井#簧关*芥*箐苓箐爷箐朞普簧* 

140 f 1,414213565 ルート 2 
150 ^0,69314718 ;DT2 

16 〇 # 箐爷箐箐箐系 M ^ ^** *#***#^ ****** ^**-»-^^ *^#***^#^^ ##*^**-»**^ 

170 IMPUT”X ゴ； X# 

1B0 Y#=X# 

190 'Error i/ ョ V 

200 IF Y#<=0 THEN PRINT *■ Illegal Function Cal1 u : BEEP: END 
210 ヲ t トメル 

220 1=0 
230 Y#=Y#/2 
240 1=1+1 

250 IF Y 林 >1 GOTO 230 

260 Z#=(Y#-1. 41421356 #/2>/(Y#+1.41421356#/2) 

270 - 1：^£^ シ宇ノケイサン 

280 693147 IB#*(I-1/2+2#*(2. 885392427 44#+Z 梓 # 2tt 长 - 9614 フ 066354 7516#+Z# ポ Z 林终 Z#*Ztt* 

,598973638648986#)) 

290 PRINT "BASIC LOG < ” 5 X 林； ” ）二 ” 5 G# ," し QG ( " ; X# j ，リニ"； LOG ( X#) 

300 END 
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5 — 4 — 7 S Q R • べき乗を求めるルーチン 


アドレス I $ B A E E 

« 能 ] 引数（単精度実数）の SQR を求める. 

レジスタ I A , B ， X， U 

入力情報 j FAC 1 =単精度実数の引数 

(0017)=単精度実数を示す値 （$04) 

復帰情報」 FAC 1 =引数の SQR (単精度実数） 

WO R K I (0011 ) 

( 0 0 6 B ) 

(0 0 8 A ) = F AC 2の指数部 

S U B I $ B 380 — FACi を FAC 2 へ 5 — 2 — 6 参照 

$ B 3 01メモリ上の数値を F AC 1 へ 5 — 2 — 6 参照 
$ A FC 3 ~^F A C 1の数値が0のとき FAC 1を0とする 
$ 8 3 3 7 — FAC 1をメモリ上へ変数テーブル用数値で保存 
$ B 47 2 — FAC 1 の IMT をとる 5 — 4 — 8 参照 
$ B 3 F 6 ->F A C 1とメモリの値の比較 
$ B 3 7 3—> FAC 2 を FAC 1へ 
$日0 AA — FAC 1の LOG をとる 5 —4 — 6参照 
$B 0 EE — 乗算ルーチン 5 —3 — 3参照 
$ BB 5 B — FAC 1の EXP をとる 5 — 4 — 5 参照 

W ] SQ R は以下の公式を実行します. 

SQR (X) =EXP ( L ° V X) -) 

しかし，このルーチンはただ S Q R (X) を求めるだけでなく，上の式の 1/2 
を Y に変えた場合は次の公式を実行していることになります. 

X A Y = E X P | LOG (X) * Y| 

ここではこの式のアルゴリズムを述べていきます. S Q R (X) はこの式の Y 
の値が1/ 2のときを考えて下さい. 
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(1) X =0 のとき X A Y =0 とします. 


Y =0 のとき X A Y =1 とします.ただし X =0, Y=0 のときは X 八 Y = 
1 となります. 

⑵ X の符号によって次のように演算の仕方を変えます. 

⑴ X が正のとき，そのまま⑶へいきます. 

( ii ) X が負のとき 

次の演算を実行してその結果によりさらに場合分けします. 

Z = I NT ( Y ) 

① Z キ Y のとき （ Y が整数でないとき） 

Error を発生します （Illegal Function Call ). 

② Z = Y のとき （ Y が整数のとき） 

X の符号を正にして， （3) へいきます. 

(3) X a Y = EXP { LOG ( X )* Y ( を実行します. 

( ii ) の②のときだけ次の操作をします. 

Y が偶数のときはそのまま， Y が奇数のときは X A Y の符号を負にします. 
この操作が何を意味するかは例を御覧下さい. 

く例〉 1 . (-2) 八2 = 2八2 = 4 

2 . (—2) A 3 = - (2 A 3) = 一 8 
1 では Y が偶数ですから X を 一 X にしても答えは変わりません • 

2 では X を 一 X にしてから計算した後，答えを負にしなければなりません. 

X 八 Y でこのルーチンを使うときのアドレスや入力情報をあげておきます. 


アドレス丨 $ BA F 7 

入力情報 ]F AC 1 =V を単精度型で 

FAC2 =X を単精度型で 

(0 0 17) = 単精度実数を示す数値 （$0 4) 

A レジスタ =( 0 0 8 2 ) 

B レジスタ =( 0 0 7 4) 

使用法 1必ず 

し DB $0074 

JSR $B AF 7 の順で使用して下さい. 
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く SQR の巳 AS I C によるシミュレーシヨン〉 


100 ^ 箐綺菁普 I 音箐箐菁♦箐哥♦箐雀*箐篑箐(长#箐长務雀箐酱升爷簧★省**★臀簧簧菁♦普科*青*菁爷箐长普*并黃♦驀斧♦舞* ♦ 

11 0 ****** BASIC SQR SIMULATION i ( 升 m ■ 长箐普簧 #«■ 普爷普箐餐 * 簧 * 斧箐簧斧 ** 普**箐并箐斧箐 

120 " ^ 令铸，箐簣普箐普箐簧簧省#贅箐箐キ普簧普务篑普*#箐令**餐箐箐箐*蚤菁箐篑雀#餐#箐箐菁*箐菁*簧箦箐*篑簧箐羑4爷 

130 INPUT 11 X= ,1 ;Xtt 
140 IF X#=0 GOTO ISO 
150 GOSUP 230 

160 6 林 = 〔 3#^<1/：2 

170 GQSUB 400 

1B0 PRINT "BASIC CQR ( 11 ; X#; M )=- 11 ; COTftE , ^SQRC^jX#? 11 ) = H ; SQR ( X#) 

190 END 

200 " ^-m » ★ 普普，**(普黄普 EXP SUE^ 劣并普， * ■«■»*■?* 朞爷并普普 * 赘 ** 簧簧普箐普灰菁菁 * 并篑雀并 * 省 ■ 普 * 并 m ■黄篑并并 

210 ^ 1.41421356 : ルィ , 0,69314718 j 〇 7 % ' 2 

220 J ■» 雀 * 爷*蒉箐箦 k# 赘 * 菁#雀并 ■« 赘 k 长关舞箐箐箐 * 菁脊篑箐簧簧簧箐长 * 箐关箐并 # 箦簧箐餐濱篑省普篑关箐 * 箐 # ■» ■鮝篑 ■» 脣 # 爷*并鸶箐 

230 Y#=X# 

240 'Error シ 3 リ 

2S0 IF Y# 00 THEN PRINT 11 II legal Function Cal 1":BEEP: END 

260 f n ヲ t トメル 
270 1=0 
280 Y#^Y#/2 
290 卜 I+i 

300 IF Y#>1 GOTO 280 

310 2#- (Y#-l*41 421356 #/2> / (Y#+l, 41421356 #/2) 

320 I 午ンシ ” ヴコウシ中ノク f サン 

330 G#=.69314718#^(I-l/2+Z#^(2. 86539242744#4 Z#*Z#^t.961 47066354751 6#^Z#^Z#^Z#*2#* 
.598973638648986#) ) 

350 RETURN 
360 * 

Z 70 * 篑景菁 ★ 舟 # 并爷 # 菁青 # 黄#并菁 EXP SUB 并着箐贅脊箐青 # 鸶菁长并并斧雀 # 音 # 爷箐箐箐 # 箐簣 # 普箐普*菁箐箐箐箐 

380 f 1,44270 ; 1/L0S ¢2) 

390 ♦ 长 ** 黃并 : 《 *** 长 ** 许令 *# 箐脊箐 * ■)* ■ 簧并菁箐 *# 箐黄箐菁篑 * 斧 #* 菁簧 * 并昔 **#* 央簧 ** 普 ***# 箐 ** 菁普 * * 

400 Z=G#*1.4427 

410 IF Z = >12 日 丁 HEN PRINT ,r 0verf 1 ow 11 : BEEP: END 

420 IF Z<-12G THEN C0TAE=0;BQT0500 

430 IF INT(Z)^127THEN PRINT M Over f X ow 1 ': BEEP: END 

440 U=G#—, 693147 普 （ INT(Z)+U 

450 V=-U 

460 C0TAE=1! ¢-1 ! +V* し 5+V.* <- ，， 166665 +V^ ¢4* 16574 E-02+V# (-8. 30101E-03+V* ¢1 . 3298BE 

—03-i VH 41316 E—04)))))) 

470 FOR 1=0 TO INT(Z) 

430 C0TAE^=2-»C0TAE 
490 NEXT I 
500 RETURN 
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5 — 4 — 8 I NT を求めるルーチン 


アドレス 

機 能 

レジスタ 

ヌ3情報 


復帰情報 


$ B 4 7 2 

引数の値を越えない整数を求める. 


A , 巳， X , U 
FAC 1 =引数 

(0 0 1 7) =引数の数値の型を示す数値 


F AC 1 


= 引数の丨 N T を行った結 



らない 


数値型は演算前と変わ 


(0 0 11 ) =引数が 一 2 5 6〜2 5 5の値であればその絶対値が 

付号なし2進数で保存されている 

WORKJ FAC 1 

(0 0 15) =倍精度フラグ 
(0011)=復帰情報参照 

S _U _B j $ B C A E — 数値型判断ル ー チン 5 — 2 — 1 参照 

$ B 4 3 5—小数点以下の切り捨て 
$ A F 9 3—正規化ルーチン 


解 説 I 次のようなアルゴリズムを実行します. 

⑴指数部が単精度型のときは$ 9 8，倍精度型のときでかつ$ B 8以上のとき 
はなにもせずにリターンします.他の場合は⑵へいきます. 

※ここで行っているのは2 0 の位の位置を調べているのです.指数部が上の数 
値以卜のときは FAC の内部に小数点以下が表現されていないため， FAC の 
内容がそのまま I NT になるのです.例えば 0. 1 0 X 1 0 2 は I NT をとって 
も0 . 10 x 10 2 です. 

(2) F AC 1(引数）の正負によって場合分けします. 

( i ) 正の数のとき 

その まま (3) へいき ます. 

( ii ) 負の数のとき 

仮数部の N EG (2 の補数）をとります.$ 0 0 81番地に$ F F を代入し 
ます.それから⑶へいきます. 
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⑶ 2°の位より小さい位（小数点以下〉を切り捨てます. 


(4) 次のように場合分けします. 

( i ) 正の数のとき 
そのまま⑸へいきます. 

( ii ) 負の数のとき 

仮数部の N EG (2 の補数〉をとり，それから⑸へいきます. 

⑸正規化を実行し.ます. 

※は)や⑷を実行する理由 

I NT とは引数 X を越えない敁大の整数ということです.ですから，ただ仮 
数部の切リ捨てを行ったのでは F I X になってしまいますので，このよう な妙 
理を寓行しているわけです.例を使って説明します. 

例 1 を御覧下さい.正の数の I N T を行っています.簡単にするため仮数部 
を8ビットとします（最初の0と小数点は含まない）. 

く例 1> X = 4 . 7 5 とします. 2 進数の I NT は以下のように行います. 

切り捨て 

X =0.1 001 1000 X 2 3 - > 0.0000010 0 X 2 8 

正規化 

— ~ > X = 0 . 10000000 X 2 3 これは X 二 4,00 となります. 
負の数のときは例2のようになります. 

く例 2> X = _4.7 S 3 とします. 

仮数部の N EG をとる. 

X 二— 0.10011000 X 2 3 —> X = -0. 01 101000 X 2 3 
切り捨て（左から 1 を入れていく）仮数部の N EG をとる. 

— ^ X = -0.11111011 X 2 8 — ~> X = — 0.00000101 X 2 8 
正規化 

—^ X = — 0.10100000 X 2 3 X 二一5爭〇となります. 
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例 2 で最初の方の N E G を取るのを (2) で行っています.次の箇所が負の数で I 
NT を求めるときのポイントです.切り捨てを行うには2 0 の位が仮数部の右端 
に米るまでシフトすればよいのですが，負の数の場合には1ビット右へシフトす 
るごとに1を左端から1つ入れていきます〔これが$ 0 0 81番地に $ FF を入 
れる理由（※を見て下さい）〕•この後，仮数部の NEG をとります〔⑷のところ〕. 
それから正規化すれば X = 5. 0が得られるわけです. 

浓左から1を入れる理由 

負の数の場合1を切り捨てるのではなく，0を切り捨てることになります. 
つまり0と1の立場が正と負では逆転するわけです.このため正の数のときは 
左から0を入れるのですが，負の数のときはこれとは反対に1を左から入れま 

す. 

次にマシン語上ではどのように行っているか示します.例3，例4を御覧下 
さい，例3が ’X =1 . 5の I N T で、， 例4が父=_1 . 5の I N T です.どちら 

も単精度実数です. 

例3 X =1. 5 I NT をとリます. 



X 

— 

1 


— 

D 








S 

8 

f 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

X 

X 

X 

X 

X 

X 

X 


0 0 
0 0 




0076 切リ捨 
0 0 7 7 

0 0 7 C 


S 9 8 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

X 

X 

X 

X 

X 

X 

X ： 


li : 规化 


X 


0 


$81 


0 0 0 0 0 0 


000000 00 


00000000 



糸 X の所は何が入っていてもよ 
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例 4 X = - 1.5 0INT 


X =—】. 5 


S 8 1 

0 0 7 4 1 

0075 侃数部の 

0 0 7 6 N E G 

S 8 1 

切り挤て 

1 S 9 8 

1 1 0 0 0 0 0 0 

0 10 0 0 0 0 0 

i 1 1 i 1 ! 1 1 

00000000 

00000000 

M I II 1 M 

0 0 0 0 0 0 0 0 

0 0 7 7 

0 0 7 C 

000 00000 

-- 

上位桁から 

11111110 

1 X X X X X X X 

1 X X X X X X X 

I を入れる 

[X X X X X X X 




S 9 8 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

\ 

X 

X 

X 

X 

X 

X 

X 


0 0 7 4 
0 0 7 5 
0 0 7 6 
0 0 7 7 

()0 7 C 


inmt 


如 







s' 

■8 

2 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

X 

X 

X 

X 

X 

X 

X 


系 X の所は何でもよ L 


5—4—9 F IX を求めるルーチン 


アドレス丨 $ B 4 61 

機能 |引数の整数部分を求める. 

レジスタ] A , B , X , U 

D 情報1 FAC 1 =引数 

(0017) = F A C 1の数値型を示す数値 
復帰情 H FAC 1 =引数の整数部分（数値型は引数のまま） 

WORK ] ( 0 0 7 0) = FAC 1 の符号部 
SUB $ BCB 3— 数値型判断ル ー チン 5 — 2—1参照 

$ B 3 A 0 — >数値の正負を判断する 
$ B 4 7 7 ^ I N T 5 —4 — 8参照 
$ BDC 9—符号反転ルーチン 

解 説"！ F I X と I NT とは次の関係にあります. 
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FIX ( X ) = S GN ( X ) *INT i A B S ( X ) 

マシン語上では次のアルゴリズムを実行しています. 

(1) 数値が整数型の場合はそのままリターンします. 

(2) X の符号によって以下のように場合分けします. 

(i) 負のとき 

符号を反転させ⑶へいきます. 

( ii ) 正のとき 

そのまま (3) へいき ます. 

(3) X の I N T をとります. 

⑷⑵の⑴のときは符号を反転します. 

^ ⑵の⑴が I NT と異なります. 


5—4—1 0 ABS を求めるルーチン 


アドレス」$ B 3 D 5 
機 能 |引数の絶対値を求める. 

レジスタ"！ A , B 

" X 力 FAC 1 =引数 

(00 I 7 ) = F A C 1の数値型を示す数値 
復帰情幻 F AC 1 =引数の ABS (数値型は入力時と同じ※) 

WO R k ] ( 0 0 7 C ) 

"~S U B I $ B 3 C 8 — 符号判定 5 —2 — 2参照 

$ BE 0 3—負の整数を正の整数にする 

1^1次のアルゴリズムを実行します（引数を X とします）. 

(1) X が正のときそのままリタ ー ンします. 

(2) X が負のとき 
⑴実数型のとき 

$ 0 0 7 C 番地（符号バイト）をクリアしてリターンします. 

( ii ) 整数型のとき 
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$ 8 0 0 0 (- 3 2 7 6 8 )以外のときは N E G ( 2の補数）をとってリ 
ターンします， 

( iii ) $ 8 0 0 0 (― 3 2 7 6 8) のときは絶対値が 3 2 7 6 8となって整数 
の範囲を越えてしまいます.ですからこの時に限り数値型を単精度実数の型 
にして32768を表現します（この場合以外は※のようになります). 

5-4-1 1 SGN を求めるルーチン 

アドレス]$ B 3 B E 

m ] 引数の符号を調べ正なら1,負なら一1，〇なら〇を与える. 
レジスタ 丨 A , B 

入力 情#1 FAC 1 =引数 

(0 0 1 7) = F A C 1の数値型を示す数値 

復帰情福'] FAC 1 =引数の SGN (整数型） 

WO R K ] F A C 1 

SUB ] $ B 3 C 8—符号判定 5 — 2 — 2 参照 

in $ B 3 C 8# 地を呼び出すことにより B レジスタに引数が負なら$ 

F F ， 正なら$ () 1 ， 0なら$00が入ります.この値を整数として F A C 1に 
代入するのですが，整数は2バイトデータですからそのままでは代入できません • 
そこで A レジスタを次のように換えて D レジスタとして2バイトの整数を作り， 
これを FAC 1に代入します.そのあと$ 0 017に$ 0 2 (整数型）を代入し 

ま丁. 












M 





■■ 

$00 


mm 
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6 — 1 ワークエリアー覧表 


(0000〜0777)までのワークエリアの衷です. 0000〜 00 FF ま 
では. I :位2バイトを竹略しました.使用法など詳しいことは本文を御参照下さい. 
なお，1つのエリアが複数の機能を持つ場合があるので注总して下さい. 


了ドレス 

機能 • 解説 

00 〜 02 

BAS I C 起動の際の SD の残骸 

mamm 

! 米使刚 

11-12 

区切文字：カウンター ；I NT の際の整数値保存用 （1 1のみ） 

13 〜 14 

編粜中の a の提さ (03) 単独で「配列の次元」が入ることもある] 

15 

! $ 00 : 単精度型 

倍精度フラグ 

1$ 0 0以外：倍精度型 

16 

D I M 文実行中•フラグ（変数サーチルーチンで使用） 

17 

FAC 1 の数値の型 

18 


19 

文字列領域不足フラグ（ガベージ コレクショ ン実行浚に立つ） 


添字評価禁止フラグ（変数サーチ〕 

HIM 

READ / INPUT フラグ 

I 1 C 

TAN 場杏分けフラグ 

ID 


IE ~ IF 

次の S A C のポインタ 

20 


21 〜 22 

現 SAC のポインタ 

23 〜 24 

X レジスタの退避 用 ( 主にり夕ーンア ドレス） 

25 〜 26 

争 • 

27 ~ 28 


29 〜 2 F 

FAC 3 (仮数部） i 


米使 m 

31 〜 32 

SP (スタックポインタ）退避用など 

33 - 34 

テ1ストヱリア先頭番地 

35 〜 36 

单砘変数格納エリア先頭番地 

37 〜 3 A 

米刪 

3 B 〜 3 C 

配列変数格納エリア先頭番地 


フリーエリア先頭番地 

3 F 〜 40 

文字列スタック倾域最終（上限）番地 

4 1-42 

文字列使川領域境界 （S S P :ストリングスタックボインタ） i 

43 - 44 

文 T •列実効アドレス 


文字列スタック領域先頭(下限)番地 

47 〜 48 

実効行番号（現在実行中のプログラムテキスト行番 

4 9 〜 4 A 

C 0 N 丁コマンド用再スタート行番号 

4 B 〜 4 C 

対サブ ルー チン悄報受け渡し用レジスタ 

4 D 〜 4 E 

CONT コマンド用再スタート.テキスト 番地 
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テキスト番地（現在契行中のテキスト番地，文を実け毎に fii 新される 







誌み込みポ 



57 


変数老の長さ 



5 A 〜5 B 


5 C 


5 D 


5 E 


変数実効アドレス（変数本体の番地；変数サーチ上）；数趴—文 


変数実効アドレス（変数本休の番地；代入文ルーチン上） 






式の優先晒位 


■ 


AC 2 の数値の型 


比較演算子才_ダ_レジス 




〜62 








62 


S ソース先リ ft 


FAC 1 の单精度奥数退避用 



63 


64 



:列#数値変換，小数点以下の数の保存 






フラグ；数値—文字変換のコンマカウンター 


シ 3 ン般終 



66 


67〜68 



F AC 1 の単精度実数の退避 HI ;V A し関数ルーチン内で （ 65 ) 単独でも使用 



69 


69 



6 B 〜 6 C 


数値-> X 字列変換の指数部操作用 


ク fe 送ソー'九 


AC 〖の単猜度実数の iM 避用 


b 粘度実数の退避⑴; S A C 番地の一時退避用 （ i 卞列加玖で使 



READ 



I N P U T フラク 0 



R E A D •キーボード说み込みポ 



72 



READ * キー ボー ドに上る 


F AC 




ンタ退避用 








の仮数部 


AC 1 の符号部 






数値一文ザ列変換の符ゝ 


一時的 SAC 


り捨て処理 m レジスタ 




83〜89 


8 A 


8 B 




の指数部 


:の仮数部 


AC 2 の符号部 


2 immcnwi i; 


保護バ 




(8 B ： 8 C ) として，文字列実効番地の一時退避用として 
も⑴いられる 



90 


92 





94 



く _数グ)…数 A 


WH [ L E 〜 W 


F 〜 ELSE カウンタ 




S T R カウンタ 
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CD 

1 フイールドの Rr 数 

CE 

フイ—ルド改行桁数 

CF 

現在のポジション 


283 












































T ドレ 




改行桁 




D 2 〜 DD 


D 9 〜 DA 



フラグ 


沢用 OT み込みルーチ 


i 凡用洸み込み r 


0 S ジャンプルーチン 




E 1 


E 2 〜 E 3 


乗算 .除禅の 



退避用 


配列の実効て 


mm 




計算時の作業用 レジスタ 


E 5 




E 7 





EA 


EC 


ED 〜 EE 


レジスター時退避用（テキスト作成ルーチン内） 


非実行文処理における，文字列定数内フラグ 


テキスト作成ルーチン内の 


j 関数実行中サイン^ —里独使用の (65) と関係あ 





last 


： est line 





RC し 




本心の Y 座標 



F 4 




F 5 





F 7 〜 F 8 


F 9 〜 FA 


FB 


FC 


FD 


FE ~ FF 


0 0 




X 座標の上限 


RC L E Y 座標の上限 






RC LE 終了位麗 


Display Sub System への 




し復帰情報を得る領域 


0 18 0 



01 A 2 


TIME , hATE _ CIRCLE , GET * PUT , RENUM ? GCURSOL などのルーチンで用し 
られる汎用レジスタおよび HARDC のワークエリア （ 209 バイト）_ 


時刻設定のときの上位桁の保存用 



01 A 3 



ンターバルのときの割り込み間隔 




ne Character/Dot ソラグ 


ラクタ 


Do t …〇 


01 A 5 


PSET フラグ： PSE1 


PRESET 





NTERVAL 割り込みの 20 m s 



み則限 


018 0 


(HARDC で使 ffj > 








HARDC で使用 


ATE $の設定ルーチン内の U レジスタの退避 


うたび ( 
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CHA 



オプシ 3 ン用 レジスタ 



01 C 9 



ME 



A D で使 Ml:S 





( HARDC で使用） 





s W I 3 :二対する削リ込みべクト ルの!, 





2に対する削り込みべクトルの応打 



S W I に対する割り込みべク 




対する割リ込みべク 





Q に时する割リ込みべク 





01 E 2 


E 3 




01 E 5 


こ対する割 1 )込みベクトルに対 


プリンタ出力禁 


ンタ出力禁止コ_ド（ LPT 1:があるとする場合 


グラウン 







バックグラウン 


srr. 





カセットギャップ出力定数：データの出力を行う前のモータの状態がオンなら s 〇 a ( 1〇 
バイト），オフなら $FF (2 55バイト）だけギャップ （$ F F ) を出力 



R 0 M モード… $ 0 2 D 



卜へ” S 8 0 



の処理エン 




一3 



4) の H 2] の表2 



照，予約語参照テーブル 



EX EC の開始了ドレス 


0 2 
0 2 



US R 0の開始アドレス 



0 2 2 


0 2 2 


U S R 9の開始ア 


0と同様 



卜ずつに人る 




フ T イルディスクリプタのな 




0 AD ” のジャンプ命令 


0 2 3 0 
0 2 3 2 


0 2 3 3 
0 2 3 5 



ンブ命令 


G ET ” のジャンプ命介 
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レス 


0 2 3 6 
i 

0 2 3 8 


0 2 3 9 
i 

0 2 3 6 


0 2 3 C 
0 2 3 E 


0 2 3 
\ 

0 2 4 


0 2 4 2 
\ 

0 2 4 4 


0 2 4 5 
\ 

0 2 4 7 


0 2 4 8 
0 2 4 A 


0 2 4 6 
\ 

0 2 4 D 


0 2 4 E 
\ 

0 2 5 0 


0 2 5 1 
0 2 5 3 


0 2 5 4 
0 2 FF 


0 2 6 0 
S 

0 2 6 2 


0 2 6 3 
0 2 6 5 


0 2 6 6 
0 2 6 8 


0 2 6 9 
0 2 6 8 


0 2 6 
0 2 6 


0 2 6 F 
i 

0 2 7 1 


0 2 7 2 
0 2 7 4 


0 2 7 5 
0 2 7 7 


0 2 7 8 
0 2 7 A 








, EN ” 関係のジャンプ命令 


tf PEN ” 関係のジャンプ命令（リザーブ）が （ 025 1 〜025 3 ) のように3バイトずつ 
割り当てられる 


ブロック入カルーチン拡張用 （ $ D A A 6より 


解読ルーチン拡張用 （ SC 63 D よ 



解読ルーチン拡張用 （$ C 6 D 8 よ 



AS I C コマンドの拡張用） 


MON 処理系拡張用 





CH A I N 後処理サブル-チン拡張用 （$ 843 2よ 


一処理ルーチン拡張用 （$ 8 DD 9より ）； D I S K そードで 



$ 7 E ( JMP ), $7 EB 0 と設定 


坩項式の評価ルーチン拡張用 



E D 上り） 



翻訳ルーチン拡張用 (SC 28 E 


関数のサ_ 



—ルのル—チン機能拡張用 
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0 2 7 B 
0 2 7 D 


0 2 7 E 
0 2 8 0 



行逆翻訳 ルー チン拡張用 （ $ C 169 4 



—ルのルーチン. 





HA 1 N 後処理ル-チン拡張用 （ $ 



拡張用 





0 2 8 7 
i 

0 2 8 9 


0 2 8 A 
0 2 8 C 


0 2 8 D 
0 2 8 F 


0 2 9 0 
0 2 9 2 


9 3 
S 

9 5 


文字列代人ル _ チン拡張用 


j M P ) S 7 F C 




91 B 7より ）； D I SK モ-ドで 
設定 



列がバッファ領域のものかどうか判別するルーチン拡張用 



Abort 


拡ル川 


Bre,ik 



fc 名 0 —ドルーチン m 屮 



0 

2 

9 

ハ 

6 

0 

2 

i 

9 

8 

0 

2 

9 

9 

0 

2 

i 

B 

0 

2 

j 

9 

i 

C 


文字領域確保ルーチン拡張用 



7 FD より）：碩域が不足したときの処理拡張用 



イス選択ルーチン拡張用 



込み（外部からのもの）ルーチン拡張川 


0 2 9 F 
i 

0 2 A I 


0 2 A 2 
0 2 AB 





t 翻訳ルーチン拡張用 





9より） 


梭処邢の拡張用 


TAB 設定テ—ブル 




使用） 



用パッフ 



カセ 



AY 乂で川いられるバッフ r の先頭て 



ス分類テ-ブルの先頭ァ 





) i 人みテーブルの祀 v 
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: 札 V, 




までの10進数が2桁ごと （ C 入る 


0 3 0 0 
0 3^0 A 


0 3 0 B 



0 3 0 


0 3 0 E 


0 3 0 F 


0 31 


0 3 : 


未使用 


カーソルの X 座標 


カーソルの Y 座標 


画面行数 


スクロ ール開始 


スク 




ル終了 f 




2示行数 


卜改 a 桁数 


フレーク •キー 押下フラグ 



MO N の D およ 



MON 処理にお 



退避用 


■HI 


ND の演算川レジスタ 


0 31 C 


0 3 


0 31 F 
0 3'3 8 


0 3 3 


0 3 3 



D の処理用レジスタ 


変数名の D E F ，指定用テープノ 


^ンタ領域確眯用のダミーコ 



テキス 


(ッファで編集中の行番 



0 3 3 C 
0 4^3 B 


0 4 3 D 
0 5 3 C 


0 5 3 F 
0 5 6 7 


0 5 6 8 



ステム人 1 :. 


数値一文字 1 叫龙 




変数名参!! a 川テ 


0 5 7 8 
0 5、9 5 


0 5 9 6 
0 5 V ? 


文字列作業領域 （ S A C 1 〜 S A C 10 ) 


READ 



了処理系におけるポ 



A ) の一時退避用 


0598 エンディングフラグ 

0 5 9 9 | I NPUT/I7INE I NPUT フラク。 

〇 5 9 A I 待機中の BAS I C 割り込みの個数（セマフォ： Semaphore ) 
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0 5 9 B 


0 5 9 C 


°V 




ERM 識別フラグ 






解放 RAM 領域の終 


fi (J fvl モ 


0 5 A 
0 5 A 







S への R C B 


ールフラク — 


フラグ ROM 〜$ 




0 5 A 


0 5 AA 
i 

0 5 AB 


0 5 AC 


0 5 A 


0 5 A 


0 5 A F 
0 5 B 0 


0 5 61 
0 5 B 2 


0 5 B 3 
i 

0 5 6 4 


0 5 B 5 




ンプ v 卜継続フラグ 


LPT 



夕のジャンプテーブル先頭アドレス（桁数などの読み込み用） 



ンタ0 N フラグ 



単色炎示 


カラ 



F ■…単色 



P F 






割り込み制御 7 ラグ 


TERM モードでの PF • キ — A りり込みの実行ル-チンのァドレス 
(TE RM モードでないときは S 0 0 0 0が人る） 


の X 视楞 






ご r 人力にフイ ー ルド設定 



「にイレ_ズするかどうか决定する 



0 5 B 8 
\ 

0 5 B B 


5 BC 


0 5 BD 


0 5 B 


0 5 B F 


0 5 C 0 


0 5 C 1 


0 5 


0 5 


未使用 


CH A 


TERM — 



亍中フラク 1 



の処理のときのカウンタの初期値 



続フラグ（改行しないために使われる 


プリンタ n 勋改 f 





LAY 文実子 



オシ レー7 





0 5 C 


0 5 C 5 


0 5 C 6 


0 5 CA 


0 5 C 
\ 

0 5 C 


0 5 0 0 
0 5^D 1 


0 5 


■ 


オシ レー タ1のオクターブ 


オシレ_夕1の指冗していない ff 符の袪本長 


の休符)！ t 本 


オシレータ1 €イスまたはエンべ 









オシレータ2のディスクリブタ オシレータ 



うに扯 




オシレ 



スク 



オシレ 



PLAY 文中でのェンベロープ尚期 



割り込み 
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BU B I 


のジャンプ命令 


0 5 D 5 


0 5 D 6 
0 5 D 8 




UBW ” のジャンプ命令 






BU 


COMn 識別フラグ 


ンプ命令 


5 DD 


0 5 DE 




ブ V R AM コー 


イ V R A N 1コ 




0 5 D 
0 5 E 


■■ 


マの割り込みのジャンブ 




0 5 E 4 


0 5 




の割り込みのジャンプ命令 




FAT への記入レベル 


未使用 


0 

5 

S 

ED 

〇 

6』 

EB 

0 

6 

( 

EC 

0 

1 

6 

ED 

0 

6 

E E 

0 

6」 

E F 



A Y 文 



KYBD ジャンプテーブルポ 




CRN ジャンプテーブルポ 



C A S 



ンプテ ー ブル; 




0 6 F 2 




ンプテーブルポ 



COMn のジャンプテーブルボインタを 2 バイトずつ格納 



将来入出力のデバイスを拡張 


0 7 0 : 



ン-ノテーブルポイ 







COMn 割り込みテ—ブル x 



卜ずつ） 


0 7 3 C 
i 

0 7 6 D 


0 7 6 


KEY 割り込み テーブル x 



卜ずつ） 



込みテーブル 


0 7 7 3 
0 1 S 1 7 


I NTERVAL 割り込みテーブル 
































6-2 メモリマップ 


この 表には，データブロックを除いて，虫にエントリ番地のみを掲載しました. 
1つの処理系に対するエントリポイントがいくつも続くような場合には，適宜段 
付けを行っています. 


了ドレス 

_ 

機能•解説 

了 ドレス 

機能*解説 

8000 

8013 

初期設定 ルーチン 

fc 送用デ-夕 

87 B 5 

87 C 0 

$ D 2 ルーチ：/の内转 

802 F 


87 C 1 

剖り込みべクトルの応答 (01 D 1 〜 01 E 2) 

8030 

予約語 リスト 

8 702 

転送用の内蒋 

804 D 


8 7 03 

ワ-ク エリア （01 E 3 〜 ◦1 F 8) 

804 F 

80 59 

ジャンプ テー ブル 

8?^ E 8 

87 E 9 

S 

転送用の内容 

プリンタジャンプテーブル転送用の内容 

805 A 

拡張コマンド川 • 解説衷けル _ チン 

87 FD 


8077 

関数予約語サーチ • コール•ルーチン 

88 FE 
88^0 3 

デバイス分類テーブルの （06 EC 〜06 

808 E 

CHAIN 前処现メイン 

F 1) 転送用の内容 

80 EB 

CHAIN 後処刑メイン 

8804 

割り込みべクトル転送用の内容 

8131 

CHA 丨 N オプシ：，ン说み込みル_チン 

880 F 

81 A 7 

CHAIN サブルーチン群スタート番地 

8810 

8 8 S 1 5 

年•月*日 (82 年12月1日) 

83 BF 

CHAIN 後処理サブルーチンならびに 

(02 FA -02 FF ) 転送用の内容 


エラー処理ルーチン 

8816 

標準関数のジャンプテーブル 

8435 

CHAIN 後処理杲サブルーチン 

88^66 

(SGN INT . DATE ) 

8448 

ERASE 

886 C 

2項演算子の優先順位テーブル及びジャ 

8488 

コールドスタート 

8 bW 

ンプテーブル （ベ キ收のみ注意） 

73 

COMn 設定 

8890 

e 

基本コマンド及び2項演算子の 

8597 

フロック転送ルーチン （ B レジスタ分) 

8 A 2 B 

予約語綴りテ-ブル 

859 F 

A (レジスタ転送ルーチン 

. 8 A 2 C 

基本関数の予約語綴りテーブル 

86 5 6 

8678 

コンソール初期化ルーチン 

8 AD 8 

8 ADA 


先行入力禁止デ_夕 

8 B 71 

基本コマンドジャンプテーブル 

867 A 


8678 

BIOS イニシャライズルーチン 

8 B 72 

基本予約語索引テーブル 

8 6 8 4 

ホットスタート 

8 D 22 

92 

割り込みべクトル設定ルーチン 

8023 

M 本予約語索引用のアルフ： r ベット順 

A 6 

r a b , 没定 a — チン 

805 6 

見出しテーブル 

CC 

8703 

8 7^7 

PF •キーイニシャライズルーチン 

霜 源投人時のメッセ _ ジ 

8 D 57 

8 D 60 

8 D 61 

i S 

「 Ready 」メッセ—ジ文字列 

「 Break 」 メッセージ文字列 

8758 

NULL ($00) 

8 D 68 

8759 


806 9 

スタ…クトのネスティンブ檢 nr 

。，し 

COMn のジャンブテ _ ブルのデータ 



876 A 

(8 D 6 B ) 

l“l 1:② 

876 B 

87^4 

PF •キーのデータ 

8093 

逆ゆ]ブロック転送（メモリフルテスト付） 


8 D 95 

逆ブロック転送（メモリフルテストな 

し） 
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8 DAA 

8 DAE 
8 DBC 

BD 

BF 

8 DC 6 

8 DCF 

8 DDI 

8 E 63 

72 
8 E 88 
8 FIC 
8 F 32 
39 
4 B 
51 
7 0 
82 
91 
8 FBC 
C 9 
8 FD 0 
D 7 
D 9 
E 4 

90 0 2 
9012 
902 D 

39 
5 5 
907 1 
9081 
9084 

9 0 AO 
90 A 3 
90 A 8 
90 AB 
90 F 1 
9134 

91 3 A 


メモリフルテスト i 
メモリフルテスト 2 

X+B — X 
X + D-X 

( 23 : 24 ) +D^X 

Out of Memorv エラー 
Direct Statement In File エラー 

ェントリ 

エラー処理ルーチン•エントリ 
メイン•ブ a ンプト衷示部 
(Break .Error • Abort 用) 
(「 Ready 」 出力） 

テキスト作成ルーチンエントリ 

行番号 サーチルーチン 

NEW (1 )(NEW コマンド•エントリ] 

NEW (2) 

NEW (3) 

NEW (4)〔 CLEAR 文相当】 

NEW (5) 

NEW (6) 

NEW (7) 

RESTORE 
RESTORE 初期化 

END ルーチン先頭 
Break エントリ 

STOP 

暗黙 END / f ! エントリ 

CONT 

RUN 

GO 

GOSUB 


9162 
9195 
B 3 
91 E 8 
91 ED 
9288 
928 C 
928 F 
9292 
9294 
9 2 A 0 
92 BE 
92 C 3 
9364 
93 CD 


行悉政み込み ル— チンテ番号) 
LET —代人文処理一（ V イン） 

LET (文字列代人） 

Missing Operand ヱラー:！:ントリ 
単項式評価ルーチン 
， （ T I 式の評価+， ）▼ 


右カッコ’ ） T チェック 
左カッコ ▼( ▼チェック 
コンマ’，▼チュック 

任意の文字 コー ドのチ jl ■ック （ B-r 落) 
Synta x Error エントリ 


式の评価♦文字型ェラ-の型判断 


式の評価 

FAC 1 <^ FAC 2 
除算 / 


エントリ 

9364 —倍精度用 
93 7 4—単精度用 
9384 —輅数用 


93 E 8 PSHS FAC 1 


F 4 
9411 
9 4 3 3 
6 B 
94 A 8 
94 C 5 
94 CE 


PSHS FAC 1 ( FN 関数用) 


PULS FAC 2 

比較演览メイン 
文字列の比較演算 


fOR £ 94 AD 
XOR — 9462 
EQV —，94 B 7 
^ IMP —— 94 BC 


AND , OR , XOR , EQV , IMP . : 

DIM (配列変数の登録) 

変数名—変数名;参照用テ—ブルに ロー ド 


9 4 FD アルフ t ベットチヱックルーチン 


9 5 0 6 数字 チ. すックルーチン 


950 F 
(9 5 7 0) 
9 5 AF 
C 7 
9509 
DE 


変数サ-チ(変数検索,統ふ出し， 

新変数發鉍ブ〇ック•エントリ 
変数検索ルーチン 
変数識別子作成ルーチン 

正幣数デ-夕評価ルーチン（式の評価付) 

// n fe ) 


GOTO 

RETURN 

Return Without Go sub エラ— 
Undefined Line Number エラー 


95 E 6 

(966 E ) 

(96 BC ) 


配列変数サーチ（検紫， QUU ど) 

新 • 紀列欢数登録ブロック•エントリ 
K 列要粟の実務アドレス割り出しブロック 


96 6 3 


Illegal Function Cali ェラー 


DATA 

REM 及び ELSE 
非実??文の処理 1 
非実行文の処理2 
IF - THEN-ELSE 
ON (式）および ON 
ON (式 ） GO 


9 7 2 C 
97 4 C 
4 D 


FREmn 

1バイト幣数•糙終評価& FAC H こ格納 
雜数型データ* 〃 

•:•上の2つのルーチンでは， D レジスタ 

FAC I と整数型耷 If が行われる 


I •: R H O K 


9752 

9760 


STRSf 対数 

文字列データ U の,ぬ A 出し a — 十 
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了 ドレス 

機能*解説 

アドレス 

機 

能•解説 

9790 

文字列格納領域確保，一時的 SAC 格納 

9 A 02 

式の評価+整数化-* X レジスタ 

94 

9799 

—時的に SAC (7 E 〜 80) に SD を 

格納 

文字列定数などの読出し評価ル-チン1 

9 A 05 

9 A 2 2 

9 A 25 

FAC 1— 鲚数化 —X レジスタ 

単精度型定数 r 655 3 6」 

9 B 

於 2 

9 A 26 

PEEK 関数 

9 D 

n 3 

9 A 30 

POKE 文 


9 F 

ft A 

9 A 3 A 

行番号定数の評価 ルー チン 

A 6 

文字列格納領域確保&最熟評価ルーチン 

9 A 50 

TAB ( 

) 関数の処理 

97 AD 

' 文穿列式の最終評価ルーチン （sAag 
:を格納；文字列型関数の出ロル-チンに 

9 A 7 F 

9 AB 3 

LPRINT 

PRINT 



当たる； S AC に番地— FAC 1 ) 

9 AC 0 

PRINT 実行ルーチン 

9707 

文字列格納用の領域を確保するルーチン 

964 7 

X 座標が0でなければ改行する 

980 D 

ガべージコレク_ン3ン * エントリ 

9850 

改行ルーチン 

9850 

文字列ゴミ化ルーチン 

9868 

PRINT 文中の「， J の処理 

9865 

文字列リンクポインタの 修正 ルーチン 

9 B 7 E 

PRINT 文中の「；」の処理 

987 C 

文字列型配列変数 • 転送後の文字列 1 リン 

9 B 9 F 

出力がブリ 

ンタかどうかチェック 


| クポインタ修正ルーチン 

9 BB 5 

SPC ( 

) 関数の処理 

98 AE 

文字列加算 （+ ) 

BE 

空白出力処理ルーチン 

98 E 4 

文字列転送•代入1 ( SD により） 

9 BD 4 

空白出力実行ルーチン 

E 6 

" 2 ( X により） 

9 BDB 

1行出カルーチン 

98 FI 

!文字列実効番地読み出し &SAC つぶし 

F 3 

同上 （ PRINT 文などから） 


(式の評価から） 

F 6 

同上 （ SAC を考慮しないもの） 

F 4 

同上（型判断から） 

9 C 22 

空白を1つ出力するルーチン 

F 7 

同上 （ FAC 1 読み出しから） 

9 C 25 

「？」を出力するルーチン 

F 9 

同上（文字数読み出しから） 

9 C 2 B 

PRINT ® (漢字）実行ルーチン 

991 B 

SAC つぶし1 

9 CD 4 

INSTR 関数 

IF 

〃 2 

9059 

STRING S 関数 

992 A 

し EN 関数 

9 D 7 B 

SPACES 関数 

2 F 

文字列実効番地読み出,し&文字数テスト 

(9091 ) 

M 1 DS 文用サブル _ チン 

9933 

CHR 謂数 

9 DC 1 

IVUDS 文 


9947 

ASC 関数 

9 E 2 C 

HEX $ 関数 

9952 

LEFTS 難 S ： 

2 D 

OCTS 関数 

996 F 

RIGHTS 関数 

(9 E 76) 

HEX$ f 〇(：丁$用サブルーチン 

9979 

MIDS 関数 

9 E 7 E 

&定数 ’ 

9 EBA 

右の定数の処理のた 

9 C 

MIDS 関数用サブルーチン 

94 

&0定数 

^ ^ めのサフルー"チン 

9 9 BA 

式—1バイト整数データ— Breg ① 

A 5 

& H 定数」 

9 ECB 

BC 

科 ® 

9 ECC 

(4 B : 40 _行番号として出力 

BF 

" ③ 

CE 

D レジスタ—行番号として出力 

9 9 CA 

VAL 関数 

9 ED 1 

LIST 出カルーチン•エントリ 

99 F 9 

コンマで区切られた引数の評価 

9 F 0 B 

L I ST * DELETE 範囲の検索 



〔整数化— (4 B ： 4 0 : Breg ) 

9 F 5 C 

文の終結チ上ック（構文チ土ック） 

FD 

コンマ以降の式の評価 — Breg 

9 F 62 

L 里 ST などの行番号評価ルーチン 











''レス 


9F73 DEFSTH 
76 DBF I NT 
79 DEFSNG 
7C DEFDB し 

9FBC DELETE 




レス 


A9CA RENUM メインルーチン ( 〜 AA2D) 

AA2E RENUM — パス i 


2F RENIJM— パス 3 

AAA8 RENIJM — パス 2 

(行番号スタック） 


D3 


テキスト ■ 部消去 （ DELETE 川） 


ュ _ ザは，このル 
一千 ンを独立にコ 
_ルすることがで 
さ■る 


9FE7 AUTO コマンド処理系 
AOIA TRON 
IB TROFF 

A07F PRINT USING ( 〜 A2 0 2 ) 


A203 FOR エントリ 1 
A2C7 NEXT エントリ 
A3 6D WHi LE'WEND 用 


A 3 6 C 


AB 73 パスー 3川サブ Hr 裉ウ付け“し 
AB 9 A RENUM - パス4 (エラ_検出） 
ABF 4 MON コマンド処洲 

メインルーチン（〜 AC2E) 

AC 2 F G コマンド 


AC3 7 


3D 


A43F 

A445 


ネスティング • 対応チ 1 ッ クルー チン 
(WHI し E* WEND の数を 
カウントする； -A43E) 


PRINT USING 処理系の飛び地 


AC5 


5F 


16 進 4 桁 （ 2 バイト）出力 by Dreg 
16 進 2 桁 （ 1 バイト）出力 by Areg 
16 進 2 桁入力 一 * 1 B-reg (1 バイト） 

MON 用 1 h 入カル-チン 


A 446 エラーメッセージ群 （41 種類） 


6C 16 進 4 桁入力 — D-reg (2 バイト 

AC9 5 M コマンド 

ACC4 D コマンド 

ACFB I R コマンド 


A70E 


[ROM モードのもののみ〕 

ON ERROR GO エント 


A739 ERROR 文ェ 
A744 RESUME 
A784 SWAP 


AD 3 6 
i 

AD4 6 
47 


レジスタ名を丧す文字列群 


PC J 


レジスタ名出カル_チン 


AD5 4 I WHILE 
AD81 ! WEND 


A7A9 


X レジスタ ^ U レジスタ「変数交換 
の指す変数 = の指す変数 L ル-チン 


B1 


スタ-? h のネスティング情報の検ぶ 

(W H I L E ) 


C4 文字列変数のリンクポインタ交換 

A7D9 DEF 

DF DEF FN 文処理ルーチン 
FA ! FN 関数名登録ブロック 
A80E FN 関数名サ_チルーチン 


ADD7 Wend Without While エラ 
ADDC I HARDC 
ADFO I ； HARDCO 実行ルーチン 
AE6 9 HARDC1 実行ルーチン 
AE8C HARDC 2 突けルーチン 


A81F 

A82A 


w Illegal Direct ▼のチュック 
FN 関数処迎系 (-A951) 


AEAF 


CA892) (AA ： AB)<^(D 9 ： DA) 

(A92 5) 文字列型 : j | 数の坪価ルーチン 

A952 VARPTR 関数 

A9 6 9 DEF USE? 义処 PI! ル_チン 

80 USR ジャンプテーブル番地の説み込み 

A9A0 USR 関数 

A9CA RENUM コマンド•エントリ 

RENUM 処理系サブルーチン群は 
$ A 9 BD 〜 SABF3 の範囲にある 


AEB7 


HARDCmT クティブ VRAM 
変換ル ■_ チン 

HARDCm アクティブ VRAM 
逆変換ル-チン 

HARDC 1 のとき ディ スプレイ VRAM 
コードによって設记される黑印字カラ 
一 衍记パィトと灰印字カラー指定バイ 
卜の データ （ 2 バイトずつ） 


AECA HARDC 2 のとき闷様に設定される 


AKHC 
A EC 9 


AEDI 


瓜印字カラー指记バイトのデータ 


AED2 ANPORT 
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ドレス 


孤 


ドレス 


【ぬ 


AFOC 1 

FAC 1 + 0. 5 

B 61 5 

Dreg 内の整数出力〔行番号出力用〕 

AF 1 1 

実数減算ルーチン 

B 618 

符号無し整数の出力〔行番号出力用） 

AF 1 A 

実数 加释 ルーチン 


実数の出力（符号なし） 

AF 97 

正規化ルーチン 


数値—文字列変換ルーチン 

BOOA 

丸めルーチン 

B 622 

数値一文字列変換ルーチン(フォーマット付） 

3044 

Overflow エラーエントリ 

BA 6 2 -ED :数値一文字列変換用データ 

B 068 

切り捨てルーチン 

BAEE 

SQR (平" m ) 

B 089 


BAF 7 

べキ乗ルーチン 


デ _夕 1.0000 



B 08 C 


BB 36 

EXP 演算デーク ： 

B 08 E 




LOG 演算データ 



B 0 A 9 


BB 5 B 

EXP 

BOAA 

LOG (自然対数) 

BB 94 

多項式1 

EE 

火数乘兑 ルー チン 

BBA 3 

多項式2 

B 1 BA 

メモリ上から FAC 2 に 数値格納 

BBE 5 

KANDOMIZli 

: B 1 DF 

汎用指数部演算ルーチン 

BBFE 

RND (乱数) 

8203 

Overflow エラーエントリ 

BC 4 E 

「Random Number Seed 」 データ 




B 206 

FAC 1*10 

BC 73 

8219 

データ丨 10. 0 

BC 74 

Cl NT (整数化ル-チン） 

B 21 F 


BCA 5 

FAC 1 •型判断(文字列唧以汴エラー) 

82 21 

Division 1 By Zero エラ _ エントリ 


I Type Mismatch エラーエントリ 

B 2 2 6 

FAC 1/10 

BCAE 

FAC 1 •型判断(文字列切エラー) 

B 234 

実数除算ルーチン 


FAC 1 •型判断（エラ_なし） 

B 2 EC 

FAC 3 — FAC 1 (仮数部のみ） 

BCC 1 

数値型の強制変換 （ Areg に才_ダ） 

8301 

メモリから FAC 1 へ数値転送 (Xreg) 

BCCD 

CDB し （倍精度化ルーチン） 

B 32 B 

FAC 1 のワークエリア退避 ( B 330^) ! 

BCD 5 

雕精度型—倍精度型変換ル_チン 

8335 

I..AC1—(5A: 5 B) が指すメモり領成 


CSNG (単精度化ルーチン） 

6337 | 

FAC 1をメモリに数値転送 （ Xreg ) 

BCEE 

倍精度型一単精度型変換ル-チン 

B 35 F 

F AC 2 — FAC 1数値転送 

BCFF 

粑数型—単精度型変換ル-チン 

8380 i 

FAC 1— FAC 2数値転送 

BD 1 9 

(76 : 77) 符号無整数を単精度化 
行番号定数用 

B 3 A 0 

FAC 1(実数型）の符号判定 

BD 2 9 

輅数•実数判断ル—チン（演算用） 

B 3 BE 

SGN (符号） 

BD 3 F 

減算_ 

CO 

B レジスタを輅数化 

BD 4 4 

整数同士の減算 

C 8 

符号判定ルーチン 

BD 4 D 

加界 + 

B3D5 1 

ABS (絶対値） 

BD 52 

幣数同士の加算 

B 3 E 1 

FACl t FAC 2 比較ルーチン 

BD 73 

乗！?：* 

B 3 EC 

FAC 1, メモリ比較ルーチン数） 

BD7 8 

粑数同士の乗篼 

84 35 

切り捨てルーチン2 

BDC 9 

ド AC 1 の符号反転 

6461 

FIX 

BE 0 C 

¥ (格数除算）； BE33 MOD 

3472 

INT 

BE 4 4 

数阶比 +UW ^ ( <, - , > ) 

B 506 

文字列…数値変換（倍精度基本） 

BE 60 

COS (余弦関数） 

B 50 B 

文甲列 — 数値変換（整数基本） 

BE 66 

SIN (正弦関数） 

B 60 E 

「〖 n^ (行番号）」の出力 

BEB 1 

TAN (正接関数） 
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r ドレス 

機能*解説 

T ドレス 

機能 •解説 

BED4 

i 

SIN, COS, TAN 演算データ 

C7 6F 

EXEC 文ェントリ 

BEF 4 


C77B 

CLEAR コマンドエントリ 

BEF5 

ATM (逆 」 E 榷閲数) 

BB 

Out Of Memory エラーエントリ 

BF2 3 
i 

ATN 演笕デ_夕 

C7BE 

式の评価一整数一 Breg ( 上限値付） 

BF47 


C7CA 

COLOR 

BF48 

LINEINPUT エントリ 

C7F! 

COLOR- (ハレマ ト . カラ _) 

BF71 

INPUT オーダ読み込みルーチンエントリ 

C81 4 

CONSOLE 

7 2 

LINE INPUT ルーチ y エントリ 

C85F 

式の評価 — 整数スタック（_，，の チュッ 

BFBO 

INPUT/LINE INPUTS 


クも行う） 


1け入カルーチン•エントリ 

C87B 

W ! DTH 

BFCO 

INPUT 人カミスの処理ルーチン 

C8BC 

1 叫面設定ル _ チン 

BFDD 

1 N P LJ T コマンド•エントリ 

C8EA 

幽面設定ルーチン用の B I OS への 

F 3 

READ エントリ 

C 8 W 

RCB データ 

F7 

READ/ 蓋 NPUT 共用 

C8F0 

LOCATE 


メインルーチンスタート（〜 C 15 5 ) 

C91 2 

⑽ LI ST 

( C 0 F 4 ) 

定数スキップルーチン （ READ 用） 

0923 

CSRLIN 

(C10E) 

DATA 文 サーチ （READ 文 用） 

C92A 

P0S 関数 

(Cl32) 

1 パス/ 2 パス制御ブロック 

C947 

LPOS 関数 

(Cl3A) 

2 バスの場合のパス 1 エンディング 

C9 5 3 

ド I RQ 

(CUD) 

C 15 6 

READ/ 1 NPUT エンディンダブロック 

C9D8 

行 治4 定数評価 4 サ-チ — 番地格納 

(TON 〜 割り込み」 用の 行 番号サーチ） 

Cl 68 

「？ Red 〇 I" rorn Start 」メッセージ 

C9E8 

C 9 V 9 

CAS 0 川の ジャンプテーブル 

C169 

1 行逆翻訳ルーチン（〜 C287 ) 

1 C9FA 

カセット EOF 

C288 

1 行 翻訳ルーチン（〜 C5E1) 

CA02 

カセットし OF 

C4 90 

アル 7 T べッ トテストルーチン 

CA 06 

カセット オープンル _ チン 


( 小文字 # 大文字変換付ぎ） 

18 

モード “〇” 処理 

C495 

1 英小文字 4 大文字 変換ル-チン 

70 

カセッ ト）]] ボインタの 初期化 ルーチン 

|C528S 

1行翻訳 • 行希号定数処理ル ー チン 

73 

1モード^1 - 処理 

C5E2 

標準関数コールルーチン（〜 C 63 C ) 

7 8 

フ T イルの诚性の設定 

C6 3D 

解読実行ルーチン（メイン） （〜 C6EC) 

CA8D 

カセット 1 ブ〇ック人力（テバイ又—々 

5D 

エラー 処现ルーチンからのエントリ 


セ/卜！ IJ バッファ} ノし'一 手ン 

7A 

ダイレクト実行川エントリ 

A4 

カセッ ト⑴ボイ ンタの 設定 1 

( C 680) 

解読実行ルーチン（サブ） 

CAAE 

Device In Use エラー 


※涔コマンド処理系へ分岐する場所 

CAB1 

Device 丨/〇 Error ヱントリ 

(C6DB) 

暗黙処即ブロ V ク 

CAB 6 

カセ■ノトク CJ — ス ルーチン 

C6ED 
: 、 

街路形キーワ—ド•絡りテ ー ブル 

BA 

アウトプ 7 トモ— ド処理 

C7 2F 

DD 

カセッ ト 終了処理 

C730 

リンクポインタ修正ルーチン 

MO 

カセット使川フラ グ 解除 

C750 

バッフ 7 領域の文¥列かどうかを判断 

CAE4 

し 0AD 7 

C 760 

数字 チ x ック & 空 〇 スキ ップ 

E6 

SKI PF 


(SD2 t D8 ルー チンの延敁） 

i F7 

エンドブロックま での 続み飛ばし 
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CB 0 2 

カセット 1 バイト人力（カセット用バッ 

CDA 6 

プ〇テクトセ ー ブ実行，及びプ〇テクト 


ファより）ルーチン 


逆変換ル-チン 

CB 1 E 

カセット1バイト出力（カセット用バッ 

AA 

プ〇テクト逆変換ルーチン 


フア へ）ルーチン 

QDC 0 

PEEK , POKE 川のプロテクトチ- T _ ノ 

CB 36 

カセット1ブロック出力（データブロノ 


クルーチン 


ク；カセットバッフ T から）ルーチン 

CDC 6 

プロテクトチ x ックルーチン 

38 

同上（任意のタイプのブロックとして） 

C 8 

RENUM からの UN し I ST エラー 

CB 4 D 

カセット ポジションチュック 

CA 

Protected Program エフー 

CB 57 

• ロ グラムまた。，データフアイ，レのへ，/ 

CDCF 

バイナリセ ープルーチン 


ダ说み込 A ル ーチン 

D 6 

バイナリセ_ブ（プロテクトが) 

59 

向上（_面邊示を行わせない場合） 

CDF 0 

式の評価^粮数—スタック （2 バイト） 

95 

メッセージ幽面出カルーチン 

CDFC 

2バイト出カルーチン (SAVE_J 

A 6 

メッセージ及びカセット上のフ イル名 

FE 

1バイト出カルーチン ( SCI J FCl [ I ) 


: 幽面出カルーチン 

CE 04 

SAVEM 

AD 

カセ+プトのファイル名幽 〖 fd 出カルーチン 

CE 4 B 

ク D — ズ実行ルーチン 

CBB 5 

FILES 

4 D 

同上（フ T イル番号を指定） 

CCi 4 


CE 73 

CLOSE 

\ 

「 Sea rc hi njr 」 のデータ 



CC 24 

Cj 

CE 81 ; 

i ベてのファイルを クロー ズする 

CC 25 


CE 8 D 

CE 9 ◦にい 1じ< v . ，のチェック 付） 

i 

fFound : w 」 のデータ 



CC 2 C 


CE 90 

フ T イル番号設定ルーチン 

CC 2 D 


CEA 3 

Bad File Number エラー 


「 Skip : し」 のデータ 



CC 3 3 


CEA 8 

OPEN 

CC 34 

CC 3 7 の 「 FILES 」 川エ •ノ トリ 

CEDC 

ファイルオープンルーチン（インプッ 

CC 37 

ファイル名 • デパイス番号設定ルーチン 


モ ー. 卜 - 

3 C 

同上 

! DF 

同上（アウトプットモード） 


「 LOAD ?」「 SK I PF 」川のエントリ | 

E 1 

同上（任意のモード） 

AC 

ファイル 名の転送処理 

CEF 4 

Bad File Mode エラー 

C 5 

デバイス番号設定処理 

CEF 7 

Pile Already Open エラー 

CCFC 

Bad File Descriptor エラー 

CEFC 

ディ スク以外のデバイ X の才ープン処理 

CD 0 1 

1 I ST エントリ 

CF0A 

Device Unavailable エ」> — 

CDOE 1 

プログラム V ァイル川のフ T イル名. 

CF 22 

ロード （ rRUN ff FD ”」 エントリ） 


デバイス番号設论ルーチン 

2 9 

〇 - ド ( TMERGEJ エントリ） 

CD 20 

アスキーセ^ ~ ブ1 i ^ 処^1 ルー手ン 

31 

口 _ ド （r し OADJ エン トリ） 

24 

アスキーセーブ / UST 

77 

a - K (T CHAIN 」 エントリ） 


共通前処理ルーチン 

A 3 

ロード前処理ルーチン 

CD 3 E 

SAVE エントリ 

C 8 

〇 — ド （ハイ + リ t fi!J 処 iH ! 4 — 十ン 

5 B 

ブ〇テクト変換処理 

D3 

バイナリ a - ド実行ルーチン 

CD 7 t 

プロテクト変換 m 初期設记 

DOil 1 

ロード後処神/ I _ 手ン 

CD 79 

プロテクト変換ルーチン1 

D 027 

1バイト人力（エラー付）ルーチン 

80 

プロテクト変換/レーチン2 

DO 3 0 

LOADM 

CD 88 

しし 1 ST 

D 06 B 

2バイト人ノ J ルーチン 


CD96 


プ〇テクト変換ルーチン C 


6D 


イト人ノ J t S DlHiB Mi ) ルーチン 
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D 072 ' 

1 バイト入カルーチン 

0475 

ON 処理 

D 08 E | 

1バイト出カルーチン 

84 

STOP 処理 

DOCA 

ポジション*デバイスチェックルーチン 

D 4 8 A 

BAS I C 割り込みが発生した割り込み 

DOED 

ファイルチュックルーチン 


処理ルーチンを待機させる 

DOFA 

ファイルモードチェック（アウトフット） 

0498 

巳 AS I C 割り込みの初期化ルーチン 

FD 

y ァイルモードチェック（インプット） 

D 4 B 0 

BAS 1 C 割り込みの初期化ルーチンの 

D 11 A 

EOF 

D 4 B 5 

B I 0 S への RCB データ 

ID 

し OF 

D 4 B 6 

サブシステムの SET TIMER Hi の 

D 150 

ファイル番号 （ 1〜 16) チェック 

D 4 BA 

コマンド及びパラ メータ 

53 

同上（式の評価な し） 

D 4 BB 

TERM モードでの PF •キー 

D 15 C 

INPUTS 関数 


割り込み処理ルーチン 

D 198 

COM n クローズルーチン 

D 4 BF 

TERM モ_ドでの 

m AD 

COM n オープンルーチン 


P F * キーの処理 ルー チン 

BA 

オプシ3ン処理 

D 4 CF 

PF 6 の処理 

D 20 C 

オープン実行 （ D 1 AD 中） 

D 3 

PF 7 の処理 

38 

825 1 A CUSART ) 設定ルーチン 

D 7 

PF 8 の処理 

D 250 

オプションのデータ値 

DF 

PF 10の処理 

D 25 B 

D 4 F 7 

111 ms 時間待ちルーチン 

D 25 C 

COMn 1バイト出カ ルー チン 

D 50 E 

TERM モードでの PF •キー処理の 

9 F 

1バイト送信ルーチン 

D 51 7 

ジャンプテーブル 

D 2 AA 

送信イ ネーブル 待ちルーチン 

0518 

丁 ERfvl のオプション転送ルーチン 

D 2 B 5 

COM n 1バイト入カルーチン 

0523 

プットウェイト禁止ルーチン 

D 2 CD 

Buffer Overflow エラー 

0528 

プッ トウェイト選択ルーチン 

D 2 FC 

! RQ 

D 52 D 

TERM 

D 39 C 

し PT 及び COMn のポジションチェ 

D 5 A 2 

TERM メインルーチン 


ック 

D 5 D 6 

TERMMS 0 

D 3 A 5 

COMn EOF 

D 5 E 3 

TERM し OF チユック 

D 3 B 4 

COMn LOF 

D 5 EC 

TERM 処现1 

D 3 C 2 

BAS l C 割り込みの制御ルーチン 

D 5 F 0 

TERM 処现2 

D 407 

ON COM へのエントリ 

D 5 F 6 

TERMM 3 

D 411 

roN (割り込み） GOSUB 」 文の行番号 

0608 

TERM のオペランド逍略時のデータ 

より割り込みテーブルにテキスト番地を設定 

5 

D 60 C 

1)411) 

r GOSUBJ チ上 7 ク 

D 60 D 


D 4 2 6 

COMn の割り込みチ _ ブルの頭出し 

i 

0614 

TERM の各処理へのジ セン プァーブル 

2 A 

同上 （ B レジスタにポート番号） 

D 6 15 

ブリンタ ク CJ ーズルーチン 

33 

冏上（テキストから式の評価をして） 

D 61 7 

プリンタ 1ノぐイト出カルーチン 

D 444 

COM ェントリ 

D 62 B 

改 h ■⑴ブリンタ1パイト出カルーチン 

0448 

COMMON 

D 64 A 

プリンタ改行ルーチン 

0459 

COM ON / OFF/STOP エントリ 

D 659 

プリンタのレディチェックと1パイト出力 

5 B 

BAS I C 割り込みの ON / 〇 FF/STOP 

06 7 0 

フ°リンタルーチンの BIOS への RCB 


制御を割り込みテーブルに設定する 

0677 

データ （£ D 670 〜… LPCHK , 

64 

OFF 処理 


SD 672 LP 0 UT ) 
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D 6 7 8 

D 6 AD 

i 

D 6 B 4 

D 6 B 5 

D 6 D 8 


D 7 30 


D 735 


D 7 3 E 
07 5 8 
D 7 6 F 


78 
7 B 
D 7 8 C 
0794 


Abort ルーチン 


「 Abort J メッセージ 


Abort 処理実行ルーチン 
カセット1ブ 0 ック入力（沉用） 

ルーチン 

カセット1バイト人力 （ A 伯）ルーチン 
(エラーがなくなるまで） 

カセッド1バイト人力（介接）ルーチン 
(エラ_時は強制りターン） 

カセット1パイト人力 （ 心：接 ） ルーチン 

MOTOR 

モータ ON (モータ状態フラグが変る） 
モータ OFF (モータ状態フラグが変る） 
モ_夕 ON 


レス 


DA 3 6 SUBOUT PUT 後続設定ルーチン 


DA 6 2 
6 4 


BIOS 実行ルーチン （ SDA 36 付） 
BIOS 実行ルーチン 


DA 6 D ! カーソルの X , Y 座標設定ルーチン 


DA 8 0 
8 B 
DAA 6 
B 2 


「 C し SJ 画面消去ルーチン 
C し S 実行ル_チン 
ブロック入カルーチン 
ブロック入カルーチン 
(ユーザ用エントリ） 


DADF 力ーソル消去ルーチン 


E 4 


カーソル表不ルーチン1 


DAEF カーソル消去ルーチン 


F 6 


モータ OFF 


DB 0 7 
DB 0 C 


カーソル表示ルーチン2 

f コンソールコント a - ル) 

力ーソル消去 • 表示ルーチン2の 
R C B データ 


カセ 


ギャップ出カルーチン 


DB 0 D 丨 キーボードジャ ンプ テーブル 


D 7 DD 

D 7 E 3 

D 7 F 7 


08 0 7 
D 8 AC 
D 90 F 
D 92 F 
D 9 3 D 
0944 
D 94 A 
0980 
0992 
D 99 E 


カセット1ブロック出力（汎用） 

ノレ ー■子ン 

裊件モータ OFF 

カセット1 パイト出カ （ ド(接） ルーチン 
一' ij 人力 (スクリーンエディタ） 
ルーチン 

一行入カルーチン（継続人力をしない 

EDIT 

ブロック 出 カルーチン 


DB 1 F 


DB 2 6 


キーボードオーフンルーチン（インプッ 
ト モー ドでない と エラーにす る） 

BEEP ON/OFF の RCB データ 
($ DB 26 … ON . SDB 28 … OFF ) 


DB 2 A BKKP 


DB 4 9 


一定時間 BEEP を嗚らす 
( BEL よりは短い） 


DB 5 4 
DB 5 9 


ド1バイト人カルーチン 


チェックルーチニ 


z ンしーチ 


D 9 A 5 
D 9 D 9 
D 9 DE 
D 9 F 4 
DAO 1 
DA 2 0 
DA 2 1 
DA 3 0 


フイールド設定ルーチン 
フィールド設定 およひ レ 
行番号 H ■スペース出力 
AUTO 編集処理 


スクリーンジヤンプテーブル 
スクリーンポジシヨンチ玉ツクル_チン 
スクリーン オーブンルーチン 
(アウトプットモードでないとエラー） 
ブリ ンタオープンルーチン 
スクリーン1バイト出カルーチン 


DB 6 D キー人カルーチン 


DB 84 

DB 94 

DB 9 8 

DBD 5 

D 8 

DD 

E 1 

DBF 3 
i 

DBFA 


力ーソルの X 、 Y 座標説み収りルーチン i DBFB 


INKEYS 

KEY 〜ェントリ 
KEY し 1 ST 

コンソール制御ルーチンエントリ1 
コンソール制御ルーチンエントリ2 
コンソール制御ルーチンエントリ 3 
コンソール制御ルーチンエントリ4 

PF •キー統み込み*及示ルーチン 
RCB データ 

PF •キー読み込み • 表示ルーチン 


沉 mRCB 設定ル—チン 


汎用 RC B 設定 ルー チンの RCB デ—夕 


SUBOUT PUT 設定ルーチン 
SUBOUT PUT 初期設记ル—チン 


DC 15 


KEY 


ON / OFF/STOP 


35 

43 

51 


KEY ( n ) ON 処理 
KEY ( n ) OFF mm 
KEY ( n ) STOP 処理 
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DC 56 


DC 6 C 
DC 71 
DCA 6 
AA 
BC 


C 5 

CF 

DB 

EF 

DCFA 

DDA 8 

DE 33 

DECA 


DEE 2 


E 4 

DEF 9 


DF 13 


DF 27 


DF 30 


37 
DF 54 
DF 7 8 
DFA 6 
AC 
EO 14 


EO 1 


E 036 


卜 : i)'SU 
E 064 
El 1 A 


PF _ キ_割り込み選択ルーチン 
(,Dreg —*\C ) 

PF • キ_割り込み ON/OFF (未使用) 
PF •キ ー 定義ル —千ン 


ON のエントリ 

ON KEY 〜 
KEY () の 

の"とみ取り— 


ルー于 


If r ff 


+数値+ 


KEY の割り込みテーブルの頭出しルーチン 
ON [NTERVA し〜 

ON TIME 〜 

ON PEN 〜 

CONNECT 

SYMBOL 

GCURSOR 

変数型と変数上効アドレスを 

GCURSOR のワークエリァに ft 人 


F unction 機能チべ 
( NOT も含めて） 


クル_チン 


unction 機能チ 


エフ 


クルー•チン 


ワークェ 


X レジスタの示す）に 


カーソル 座檔を代入 

BIOS RCB, SUBOUT 

設定ルーチン 

BIOS RCB, SUB IN 

設定ルーチン 
X ， Y 座挖の設定 
(式の評価，シザリング付き) 

\、 様の設圯（シザリング付き） 

PAINT 境界色設定ルーチン 

POINT 

PSET 

PRESET 

X, Y 座枇（キャラクタ）のシザリ : 
(X, Y と X' Y' について） 


X , Y 座把 


ラクタ）のシザリング 


( X , Y について） 

▼ ( X , Y ) —（ X , Y ) v ifili 
v —（ X , Y ) T を説み込み X _ Y を決定 
▼ U , Y) T ^み込み X ， Y を決定 
し 〖NE 

TIME (ム辺にあって秒を与える） 




E 15 C 

E 172 


El 7 B 


E 182 

E 190 

E 1 D 8 

E 1 E 3 

E 1 E 4 

E 1 F 8 

E 20 E 

E 22 B 


E 233 
E 23 F 
E 249 
E 2 4 F 
E 272 
E 283 


E 2 9 1 
E 2 CF 


E 2 DA 

E 2 E 9 


E 2 F 9 


E 3 12 


E 3 3 2 


E 34 D 


E 36 D 




E 395 

E 3 BA 

卜: nr 卜 


TIMES (右辺） 

年，月，13,時間，分，秒の 
倘々の要盂を設定 
年.月, B . 時間，分，秒の 
複数の钽索を設定 
DATES (右辺） 

DATE (:む辺にあって H 数を与える） 


月の日数のデータ 


T 1 ME エントリ 

TIMES (左辺) 

設定時刻が範囲外かどうかのチエック 
時刻，分.秒などの10の位と1の位を 
足して 計算し B レジスタへ 

TIME ON 処理 
TIME OFF 処理 
TIME STOP 処理 
TIME (割り込み設定） 

ワ-ツエリアに割り込み時刻を読み込む 
SET TIMER (制御レジスタ） 

ノレ ー チン 

DATES (左辺） 

T I ME $ や DATES の設定において 
範囲外のときの処理 
うるう年の確認ル-チン 

SET TIMER (24 時間時計レジスタ） 

ルーチン 

E 2 E 9の下位ル-チン （10 の位と1の 


位を換 I ?しサブコ 


ドに設定する） 


DATES, TIMES のワークエリア 
設定つ ーチン 

DATES, TIMES* TIME の 

パラメータ設定ルーチン 

TIMER を统み込む 

〔（ 02F4 〜 02F9) に格納〕 

TIMER を （01 02〜）のワークエリ了 
に！ ^ み込む u —+ン 

TIMER を （ 0 1B5 〜 0 1C9 ) のワーク 
エリァに練み込むルー手ン 
時刻などの数値変換 
INTERVAL エントリ 
i NTERVA し 割り込み問隔設定ルーチン 


301 


* 








E40B 

INTERVAL ON 処理 

ED6 3 

MML バッファの頭出しルーチン 

E43D 

INTERVAL OFF 処理 

ED7 2 

PLAY 文割り込み処理ル_チン 

E44 8 

INTERVAL STOP 処理 

EE9A 

音の長さ 計算 ルーチン 

E44E 

制御レジスタ （PSG ) 初期化 ル ー チン 

EEC9 

_L 小文字#大文字変換 

E453 

0B 存割り込みルーチン 

EEDA 

" 丁”処理 

E4BB 

I Color 代入ルーチン 

EEE5 

"L ”処理 

E4C8 

PAINT 

EEF0 

代 0 ” 処理 

E520 

CIRCLE 用 SIN. COS データ ! 

EEFC 

" V ”処理 

E543 


FE 

"S ”処理 

E5 4 4 

CIRC し E X, Y の上限設定 

! EF12 

オシレータディスクリプタへの禅き込み 

E552 

CIRCLE エントリ 

EF19 

オシレ_タディスクリブタの誌み出し 

E6A3 

CIRCLE 演兑ル_チン 

EF2 1 

オシレータディスクリプタの頭出し 

E6B1 

CIRCLE 乘簕ルーチン 

EF3 1 

"P ", ” R ” 処理 

E7A3 

8 ビツ ト， 3 ビツ ト 変換ルーテン 

EF4 4 

" 八 ”〜” CT ’ 処理 

E7EF 

GET 

EF5C 

w N ”処理 

E80A 

PUT 

EFA1 

” M ”讓 

EAF6 j 

SCREEN 関数 

EFB3 

1 

変数名処理 

EB4B 

SCREEN 

EFC9 

音程の設定など 

EB77 

マルチ制御ぺージレジスタ （ FD 37 ) 

F01C 

バッファに MML 中間 コー ドを 格納 


I 設定ルーチン 

3E 

MM し 中間 コー ド 格納 用サブルーチン 

EB8E 

BUBINi | 

F049 

MML 1 コー ド読み込み 

EB91 

BUBW 

F060 ! 

ポインタ （D 9 : D A ) の祝婦 

EB94 

BUBR 

F068 ! 

音程コマンドの後に続くもの 

EB9A 

KILL 


についての処理 

EBBA 

； SOUND 

F0CF 

ポインタ （D 9 : D A ) の設定 

EBCF 

PSG 設定ルーチン 

F0DA 

音程以外のコマンドの後に続くもの 

EBE5 

PSG 初期化ルーチン 


についての処理 

EBF6 

PLAY 実行への設定 

F0F5 

数値，変数についての処理 

FX ： OT > 

音関係の初期化ルーチン 

F144 

コマンド相対了ドレスデータ 

ECU 

TIMER 割り込みイネ_ブル処理 

F159 

IB 

TIMER 割り込みマスク処理 

F15A 

i 

音程の データ 

2 0 

IRQ マスク処理 

F174 

EC27 


F176 

V 1 L 1，82 09 01 

BEEP OFF の RCB デ_夕 


(BIOS のバージョン） 

EC28 

F17C 

EC29 

PLAY 文のオシ レーク の扔 期没定 

F17D 

BIOS 

EC4D 

PLAY 文のバッフ t 初期設定 

FC00 

RAM 領域 

EC7 2 

PLAY (PLAY の MML は 1 つの 

j FC8 0 

ji ： イ f RAM 傾域 


1 嘗 捂体系を成している） 

FD0 0 

I/O 做域 

ECD9 

MML バッフ t の初期設记 

FE00 

BOOT ROM 

ECEE 

MML 文字傾域チ土ック 

FFEO 

BOOT ROM 用の RAMM 域 

ED19 

MM し解釈吏けルーチン 

FFFO 

tA り込みべクトル 

EDS 5 

MML コマンド解析ルーチン 

FFFE 

RESET ベクトル 
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6 一 3 DISK BASIC 


初期設定で使) U される ， I PL 々 DB 
した.仕様は6 - 2と M 様です. 


アドレス 


0100 
0 1 A 0 
0102 
0 121 


—— 


PL (BAS 1C 起動時(こ消滅) 


[ PL が BOOTROM 内のサブルーチンを 
呼び出すためのデータ （ RCB ) 



6 E 00 
7 1 D 5 
6 E 0 3 
6 E 43 
7 192 
7 19 B 
7 19 C 
7 1 D 5 


DISK BASIC イニシャライズ 
ルーチン （ BASIC 起動後に消滅） 


DISK モ— ドでの PF * キーのデータ 

DISK 関係の予約語の 
予約語蓼照テーブルへの転送用デ-夕 


DISK BASIC 起動時のメッセージ 


7 1 D 6 
73 13 

73 14 
7 3 2 F 
7 3 3 0 
7 3 3 B 
7 33 C 
7 3 5 C 
735 D 
736 E 
7 3 6 F 
73 A 1 
7422 
7 4 4 5 
744 C 
7 4 5 C 

74 68 
69 

749 B 

74 A 5 

74 A 6 

74 AB 


DISK BAS 1 C 用のワークエリア 


DISK コマンドの予約語綴りテーブル 


DISK コマ 


ジャンプテーブル 


DISK 関数の予約語綴りテ-ブル 



DISK 関数のジャンプテーブル 


DISK 関係の解 A 実行ル—チン 

DSKIN 1 

FAT 初期化ル t チン 

コロン， NULL のチヱックルーチン 

「 Are you sure 〜？」ルーチン 
I Are you sure 」ァータ 


r Are y 〇 u 〜？ j 実行ルー手ン 


「（Y or N) ?」データ 


メっセ _ ジ出カルーチン 

ファイルバッファの頭出しルーチン 

同上（任意のもの） 


ー チニ 



レス 


4 BD 

4 CE 

E 6 


75 16 
2 A 
2 D 
7 5 5 D 
7 56 4 
7 56 5 


7 A 

75 A 4 

75 C 9 

D4 


7 62 C 
768 E 
7698 
76 BF 
D 2 
77 13 
45 
86 
BE 
7822 
7838 
7 85 F 




ドライブテーブルの頭出しルーチン 
セクタ入出カルーチン 
セクタ人出力実行ルーチン 

同上 ( RESTORE ) 

同上 （ DREAD ) 

同上 ( DWRITE ) 

セク タ入出力実 a ルー チンの各処理への 
ジャンプテーブル 

DSKOS 

DSKIS , DSKOS 人出カルーチン 
ドライブ，トラック，セクタ番号の設定 

DSK I $ 

KILL 

KILL 実行ルーチン 
F ATI 己入ルーチン 
ディレクトリ搮索ルーチン 


イルの存在チ 


丄ツ 


クノレーチ 


ファイ ルの オープン チ 又ッ クルー チン 

I D 確認と FAT の読み込みルーチン 
同上（デバイス番号のチ上ックなし） 
ディスク オープンルーチン 


モード 


のときの処理 


A 9 
78 BE 
79 14 
7 9 24 
69 
7 99 0 


モード”0”のときの処理 
モ-ド” A ”のときの処理 
モード w R ”のときの処理 
フ T イ ルバッフ T の初朗化ル ー チン 
ディレクト リス a ット記人と FAT 記人 
ルーチン 

FAT 』 己人ルーチン（条件付） 


ディスク 


ローズルー チン 


SFD からドライブ番号を割り出す 


スク 


バイト出 カルー チン 


次セクタ設定ルーチン 

空きクラスタ検索*設定ルーチン 


7 9 AA クラスタ番号，クラスタ内セクタ番号 


7 9 C 2 


トラック番号，セクタ番号変換ルーチン 
クラスタ番号一*トラック番号一 2 


303 







7906 

トラック番号一 2 — クラスタ沿■ウ 

7072 

し 0 C 

79 DD 

レコード/セクタ番号一*クラスタ#り- 

7 C 7 C 

ファイルモードチェック（ランダム， 

79 F 5 

クラスタ番号—レコード/セクタ ff 号 


キストからフ r イル番号を綠み込む） 

79 F 9 

ディスク 1バイト入カルーチン 

81 

ファイルモードチェフク（ランダム 

7 A 37 

次セクタ読み込みルーチン 

83 

フ r イルモードチ jl ック（任意の） 

86 

ボィンタを EOF まで進める 

7 CA 4 

ディスク EOF 

7 AA 8 

ポジションチ x ック 

C 3 

ディスク L 0 F 

7 AB 7 

ディスク INPUT ルーチン 

7 CE 6 

NAME 

7836 

1バィト入力及びデータ終了チ j ック 

7 D 3 1 

n AS ”チック及びファイル名， 

3 D 

1バイト人カルーチン 


ドライ ブ番号設定 

7 B 43 

区切文字設定ル_チン 

33 

ファイル名 • ドライブ番号 

7 B 57 

FILES 

7043 

AS ”チ上ック 

7 BEE 

1 

FClusters Free 」 データ 

7 D 4 E 

FIELD 

7 BFD 


7 DA 7 

LSET 

7 BFE ； 

1 バィト+ 空白 出力 

A 8 

RSET 

7 C 0 1 

空白 出力 

7 E 0 1 

PUT 

7 C 04 

クラスタ数の割り出し 

03 

GET 

7 C 15 

DSKF 

7 EB 0 

DISK J i ] エラー処理ルーチン 

7 C 3 D 

CVI 

1 7 F 25 





エラーメッセージ 

40 

CVS | 

7 FC 3 

43 

CVD 

7 FC 4 

D 1 SK モード時の文字列代人用 

7 C 55 

! MK I $ 


補助 ルー チン 

5 8 

MKS $ 

7 FE 0 


5 B 

IVKDS 

7 FFF 

未使用 

一4 

中間コ ー ドー覧表（コ- 

-ド順) 


コード (7 

) 小さい順に並べた， 中間コ ー 

ドの対応 

表です. 


) でく くってあるのはサブコードです.また， __1纏 の部分は D I S K コ 
ドであり ， D I S K モード時のみ生成されます. 


中間コード 

対応するキーワード 

エントリ 

アドレス 

中間コード 

対応するキーヮード 

エントリ 
了ドレス 

80 

END 

8FD0 

(CE) 

〜 SUB 

9039 

81 

FOR 

A203 

88 

RUN 

9021 

82 

NEXT 

A2C7 

( 22 ) 

(FD 名 ）” 

CF2 2 

83 

DATA 

90AO 

89 

IF 

9 OF 1 

84 

DIM 

9405 

8A 

RESTORE 

8FBC 

85 

READ 

BFF3 i 

8B 

RETURN 

90 ： ! 

86 

LET 

9195 : 

8C 

REM 

90A3 

87 

GO 

9020 

8D 

J ( 注釈文字列） 

90A3 

(CD) 

〜 TO 

9 055 

8E 

STOP 

8FD9 













中間コード 

対応するキーワード 


■ 

対応するキーワード 

MB 

8F 

ELSE 

90A3 

AD 

EXEC 

C76F 

90 

TRON 

AO1A 

AE 

OPEN 

CEA8 

91 

TROFF 

AO IB 

AF 

CLOSE 

CE73 

92 

SWAP 

A784 

BO 

FILES 

CBB5 

93 

DEFSTR 

9F73 

B1 

COM 

04 4 4 

94 

DEFINT 

76 

(97) 

〜 ON 

04 7 5 

9 5 

DEFSNG 

79 

(D5) 

〜 OFF 

04 6 4 

96 

DEFDBL 

7C 

； (8E) 

〜 STOP 

0484 

97 

ON (01EC)- - 

令 DCA6 

B1A2 

COMMON 0448—— ' 

如 90A0 

(B2) 

〜 KEY GOSUB 

DCAA 

B2 

KEY 

DB94 

(CB) 

〜 INTERVAL 〃 

DCD3 ; 

(BB) 

〜 LIST 

DB9 8 

(FFA9) 

〜 TIME ノノ 

DCE5 

(97) 

〜 ON 

DC35 

(FF9B) 

〜 PEN " 

DCEF : 

(D5) 

〜 OFF 

DC43 

(B1) 

〜 COM (n )〃 

D40D ; 

(8E) 

〜 STOP 

DC4F 


〜 ( 式） GO …… 

913A 


~ 定義 

DC71 

(9B) 

〜 ERROR GOTO 

A70F 

B3 

PAINT 

E4C8 

98 

HARDC 

ADDC 

B4 

BEEP 

DB2A 

99 

RENUM 

A9CA 


〜 1 

DB3F 

9A 

EDIT 

D8AC 


〜〇 

DB44 

9B 

ERROR 

A7 39 1 

B5 

COLOR 

C7CA 

9C 

RESUME 

A744 

(E6) 

CO し OR 二 

C7F1 

9D 

AUTO 

9FE7 

B6 

LINE 

E064 

9E 

DELETE 

9FBC 

(FFA6) 

〜 INPUT 

BF48 

9F 

TERM 

D52D 

B7 

DEF 

A7D9 

A0 

WIDTH 

C87B 

(CF) 

〜 FN 

A7DF 

A1 

UNLIST 

C9 I 2 

(D2) 

〜 USR 

A9 6 9 

A2 

MON 

ABF4 

B8 ， 

POKE 

9A30 

A3 

LOCATE 

C8F0 

B9 

PRINT 

9AB3 

A4 

C し S 

DA80 

(40) 


9C2B 

A5 

CONSOLE 

C814 

BA 

CONT 

9002 

A6 

PSET 

DFA6 ： 

BB 

し I ST 

CD0 1 

! A7 

! PRESET 

DFAF 

BC 

CLEAR 

C77B 

A8 

MOTOR 

D7 5 8 

BD 

RANDOMIZE 

BBE5 

(97) 

〜 ON 

D76F 

BE 

WHILE 

AD54 

(D5) 

〜 OFF 

0772 

BF 

WEND 

AD81 

A9 

SK I PF 

CAE 6 

CO 

NEW 

8F32 

AA 

SAVE 

CD3E 

Cl 

GET 

E7EF ： 

(4D) 

〜 M 

CE04 

(23) 


7E04 

AB 

LOAD 

CF31 

C2 

PUT 


(4D) 

〜 M 

D030 

(23) 


7E01 

(3F) 

〜？ 

CAE4 

C3 

CIRCLE 

E552 

AC 

MERGE 

CF29 

C4 

CONNECT 

DC FA 
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中間コード 

対応する キーワード 

エントリ 
了ドレス 

中間 コード 

対応する キーワード 

エントリ 
了ドレス 

C5 

1 SYMBOL 

DDA8 

E8 

DSKINI 

7 3A1 

C6 

GCURSOR 

DE3 3 

E9 

: DSKOS 

7 56 5 

C7 

BUB I NT 

EB8E : 

EA 

! NAME 

7CE6 

C8 

BUBW 

EB91 

EB 

FIELD 

7D4E 

C9 

BUBR 

EB94 

EC 

LSET :::: 


CA 

KILL 

EB9A 

ED 

RSET ■；；；：；"■■ 

: ::機. 編 ::… 

CB 

INTERVAL 

E3BA 

EE 

CHAIN 

808E 

(97) 

〜 ON 


EF 

ERASE 

8 4 48 

(D5) 

〜 OFF 

E4 3D 

1 F0 

LLIST 

CD88 

(8E) 

〜 STOP 

E448 

FI 

し PRINT 

9A7F 

CC 

TAB () 関数 

9A50 

F2 

SOUND 

EBBA 

CD 

| TO 


F3 

PLAY 

EC72 

CE 

SUB 





CF 

FN 関数 

A82A 

26 

& 定数 

9E7E 

DO 

SPC ( ) 関数 

9BB5 

(4F) 

&0( 8 進定数） 

9E94 

D1 

USING 

A07F 

(48) 

&H (16 進定数） 

9EA5 

D2 

USR 関数 

A9A0 

FE0 1 

1 バイト整定数 

(9212) 

D3 

ERL 

9270 

FE02 

2 バイト " 

(921B：' 

D4 

ERR 1 

9264 

FE04 

単精度型定数 

(92 2 5) 

D5 

OFF 1 

- [ 

FE08 

倍精度型定数 

L 〃 ) 

D6 

THEN 


FEF2 ! 

行番号定数 

(9205) 

D7 

NOT ( 否定演算子） 

9 2 4E 




D8 

STEP 


FF80 ； 

SGN 

B3BE 

D9 

+ ( 数値） 

BD4D I 

FF8 1 

INT 

6472 


+ ( 文字列 ) 

98AE 

FF82 

ABS 

B3D5 

DA 

一 （ 2 項演琛子〕 

BD3F | 

FF83 

FRE 

972C 


一 （ M 項演界子 ） 

92A7 

FF84 

POS 

C92A 

DB 

* 

BD7 3 

FF85 

SCJR 

BAEE 

DC 

/ 

9 3CD 

FF86 ； 

LOG 

B0AA 


/ ( 突そ i ■ ルーチン） 

8236 

FF87 

EXP 

BB5B 

DD 


9 3 9E 

FF88 

COS 

BE60 


， ( 突行ル - チ :/) 

BAF7 

FF89 

SIN 

BE66 

DE 

AND 

9 4A8 

FF8A 

TAN 

BEB1 

DF 

OR 

9 4AD 

FF8B 

ATN 

BEF5 

EO 

XOR 


FF8C 

PEEK 

9A26 

El 

EQV 

9487 

FF8D 

し EN 

9 92A 

E2 

IMP 

94BC 

FF8E 

STRS 

9752 

E3 

MOD ( 刺命 ) 

BE33 

FF8F 

VA し 

99CA 

E4 

Y ( 格数險兑） 

BE0C 

FF90 

ASC 

9947 


E5 

> 


( 細） 

94 33 

FF9 I 

CHRS 

9933 

E6 



( 数値比較） 

BE44 I 

; FF9 2 

C I NT 

BC7 4 

E7 

■ ■■■ 



( 文字列比較 ) 

946B 

FF93 

CSNG 

BCE0 


306 
















E233 

E23F 


E2 4F 


D15C 
C923 
DF78 

E I K 4 


BFDD 


DB84 


BBFE 


9D59 


A952 


AED2 


EAF6 


EB4B 


9979 

9CD4 


9DC1 


9952 

996F 


0 2 5 八 


0 2 57 


D ID 


9E2D 


B461 
9D7B 
9E2C 


BCCD 



E190 

E182 


El[.« 

El IA 
E15C 


CDB し 
FIX 

SPACES 

HEXS 

OCT% 

LOF 

EOF 

PEN ( 文） 

" ( 関数） 

LEFTS 
RIGHT$ 

M IDS ( 文） 

〃 （関数） 

INSTR 

SCREEN ( 文） 

" (関数） 

ANPORT 

VARPTR 

STRINGS 

RND 

INKEYS 

INPUT ( 文） 

INPUTS 関数 
CSRLIM 
POINT 
TIME 

〜 hh/ mm/ss 
〜 ON 
〜 OFF 
〜 STOP 

〜 « 時分沙 ” 
TIME 関数 

〜 S n 

DATES ゴ年月 n ”文 
DATE 関数 


FF94 
FF95 
FF9 6 
FF9 7 
FF98 
FF9 9 
FF9A 
FF9B 

FF9C 

FF9D 

FF9E 

FF9F 

FFAO 

FFA1 

FFA2 

FFA3 

FFA4 

FFA5 

FFA6 

¢24) 

FFA7 

FFA8 

FFA9 

(97) 

(D5) 

(8E) 

(24) 

FFA9 

(24) 

FFAA 


FFA13 

PFAC 

FFAD 

FFAE 

FFAF 

FFBO 

FFB2 

FFB3 

FFB4 


DSKF 

CVI 

CVS 

CVD 

MKIS 

MKSS 

MKD$ 

LOG 

DSKl$ 

LPOS 


7C15 
7C3D 
7040 
7C43 
7C55 
7058 
7C5B 
7C72 
7 5A4 
C947 


中間コード 


中間コー 


—ワ 


対応する 


レス 


対 Ml ; するキーワー 
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6—5 実装図 • 回路図 


本節では， FM — 7のミニフロッピディスクインタフエ™ス （ MFD ) カード 
Z 8 0 力ード， RS — 2 3 2 C インタフエース カー ドの 冋路図* 実装 図 を 紹介し 
ます. 

これらの回路 M • 実装図はすべて秀和システムトレーディング株式会社におい 
て調査したもので，メーカーが保障したものではありません.あくまでも参考図 
としてお使い下さい.従って，本回路図集に関してメーカー等に直接問い合わせ 
ることは御遠慮下さい. 

I 実装図 

1 ミニフロッヒディスクインタフエース （ MFD ) 力ード 

2 Z 8 0カード 

3 RS — 2 3 2 C インタ フエー ス 乃ー ド 


II 回路図 

1 ミニフロッピディスクインタフェース （ MFD ) カード 

2 Z 8 0力ード 

3 RS — 232 C インタフヱースカード 


兹印のない抵抗の単位はすべて n です. 
K は kn ， パは" F , P は pF の略です. 
* 印は ft 論理のものです. 
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